dane Viathmr ale inthe punto | 


Gx pais 
UNIOERSTTRTIS 
AUBERTAEDSIS 


oes 


Digitized by the Internet Archive 
In 2022 with funding from 
University of Alberta Library 


https://archive.org/details/Havskov1978 


7 7 
A ib Pe A 
2% 4 . 
ft eae ty } Vib 
, = i a iy A er rv 


ir 


Leaetad 9h ataee 
ee ald a 
prinklaied Ws a 


an oe. 


eee 6) £09 BE 04d 6 CH 6 Hew ee © 


2 i B 
a he 
< 7 a | ; >. au 
ie na my | 
‘ Ve ra } 
e 
i 
‘ eee nT 
kpudusge 02 TELNET 
~ ue : 
A ae => f-P Cree . 
cy 
ALE 7 4 pul 4“) 
 ¢ = ® ® 4] 
ere , . , , 
2 ey a) FAT “Uw 
» © t 6 % ’ 
J ' } soy 
e e ? 
wig sint 
va? viem oY Be. war a} 9 iz ba ; a2 ree4 i 
2% « inthe i 
Ve 7 2 ’ fi AG fo 4 ’ i Lb 4 > ee) ay 
~ &» by < : Lf i ae ee a 
2 = 
Bais cI0-%. eetiha aad as? BA Cw 3 622 ee cea. © 
' * “hd . 
he - <a rm si « x ¢ - 
Vit-622090%04 Ancecses 9 ' QLISAG RS We, 
j | , ‘ i 
SINOLT COLTS NIC ey TOUS SPO LT RNs Wes PS Pa os 
oe 
ie Sb Ai tissue Fes ‘os te? Be " ws fae « eee ag 
: om” v (i 
i : B ‘ eh 
s*sogfta att TEAS cY OSM! F a $< ) Sera 38, OS) oe 
t &. F { 39 tu 
cc ony 
os j 24 
- : pv 
2 : . ; 
bettas ‘ @ 7©% ee Pr Jn oe 
Atacand 
“a oe @ a@ 6 CACO ERO See Oo @: 7 
a 


Per ds ccmver. Ser 


ere8® © 6 2 @@ Oe 


a at a 


THE UNIVERSITY OF ALBERTA 


PLATE TECTONICS AND SEISMIC EVIDENCE FOR MANTLE 


INHOMOGENEITIES 


by 


JENS HAVSKOV 


A THESIS 
SUBMITTED TO THE FACULTY OF GRADUATE STUDIES AND RESEARCH 
IN PARTIAL FULFILMENT OF THE REQUIREMENTS FOR THE DEGREE 
OF DOCTOR OF PHILOSOPHY 
IN 


PHYSICS 


DEPARTMENT OF PHYSICS 


EDMONTON, ALEERTA 


SPRING 78 


aes. a0. Y'CESY 4 ae 
dpm Atti ann apices a Np Felt 


Ban . beet’ Sveti ent dsat vireo sate haley at 


otReEee bas Bo pbs Staubss) Fo yslebet at ‘ed 
qua ASIMOV TT RTS. Da! th Rate oe. tenes code * 

yd Beds bacne SSE rTRGOon ' FLceaM Oa reat ith 21g 
etnetotivupet ons a0 dmsin Li ea oT ae Az ee | an 


foeuagoes af .glgoro lit 249! pettse@ 14) deapak tise! Me 
Na) . 
hs La , 
‘a Seasons in 


Or uy Sstytr 


> 


i 
. eee - mm 
shih fina at: PN, ee oe - F 


ABSTRACT 


Paleomagnetic observations, oceanic magnetic lineations 
and the present continental margins are combined in an 
interactive computer program to generate maps for seven 
periods in the Phanerozoic Era . On an azimuthal-equidistant 
map projection with crigin on the centroid of the 
continental lithosphere the boundaries are seen to display a 
high degree of symmetry and order. By using geological 
evidence an attempt is made to model a reconstruction of 
major plate boundaries in the past. During the Cambrian and 
Ordovician periods the continental segments were as widely 
dispersed as at the present and formed a ring of plates on 
the paleo-equator but with North Africa and South America 
contiguous and close to the south pole. In these, as in 
Ccther periods, there is symmetry about the spin axis. 
Extensive plate motion occurred at about the time of the 
Caledonian Orogeny when the continental segments evolved 
toward the formation of a single large group called Pangaea 
by Wegener . This evolution occupied much of the upper 
Paleozoic and Mesozoic Eras. Toward the end of the 
Cretaceous period a more dispersed form began to develop 
yielding the present pattern of two antipodal quasi-circular 


plates separated by a ring of more irregular quasi- 
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elliptical plates. The results suggest the presence of a 
Slowly evolving mantle-wide convection system which is 


Symmetric about the earth's spin axis. 


If mantle-wide convection is occuring at the present 
time then evidence for this should be present in the form of 
seismic velocity heterogeneities. Seismic observations from 
many sources have been examined in an attempt to find such 
effects. The use of differential core reflected travel time 
residuals is shown to be of value in such studies and was 
used here. The technique is extended also to include 
differential values of slowness and azimuth residuals of 
core reflected phases. The world wide results from this 
study clearly indicates the presence of lateral 
inhomogeneities throughout the mantle. A detailed study was 
possible for rays passing underneath the Caribbean and the 
Southeast Pacific. Under the eastern part of the Caribbean 
the upper and middle mantle is dominated by a high velocity 
zone which changes laterally into a low velocity zone under 
Central America. There is evidence for anomalous regions 
extending well below the Benioff zones near Fiji and the New 
Hebrides Islands. This may be interpreted in terms of 


subduction continuing into the lower mantle. 


In the process of obtaining the best possible slowness 
and azimuth values, a new method, using only the available 


array data, was developed to determine the dip and the 
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strike cf the Mohorovicic discontinuity under the array. The 
method employs the coherencies of body waves in the P coda 
from both the vertical and horizontal detectors to obtain 
the slowness and azimuth of the direct and converted wave at 


the Mohorovicic discontinuity. 
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CHAPTER 1 


PLATE TECTONICS IN THE PHANEROZOIC 


INTRODUCTION 


Plate tectonic models of oceanic lithosphere for the 
Tertiary and Cretaceous periods have been made for the 
Atlantic («( Pitman and Talwani ,1972), Pacific ( Herron, 
1972; Larson and Pitman, 19723; Atwater and Molnar, 1973; 
Molnar et al, 1975, Cooper et al, 1976), Indian ( Fisher et 
al, 1971; McKenzie and Sclater, 1971), and Arctic ( Lambert, 
1974 ) oceanic areas. These reconstructions using magnetic 
lineations cannot be continued beyond the Cretaceous - 
Jurassic boundary because of the youthfulness of oceanic 
basins and their destruction by subduction. Any further 
attempts at modelling in the Mesozoic and Paleozoic eras 
must rely on data from continental crust. However, purely 
geological evidence does not, in general, permit a unique 
solution. Some of the ambiguity would be reduced if it were 
possible to establish the properties of the plates as a 
function of time and to determine the global dynamic systen, 
often referred to as the driving mechanism. A few properties 
and principles which may ke of value in reconstructing a 
plate tectonic model at any time in the past have been 


pointed out by Kanasewich (1976) and these will be_ tested 
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and explored using raleomagnetic evidence. 


A series of azimuthal-equidistant map projections, 
centered on each of the plates of lithosphere were used by 
Kanasewich (1976) to demonstrate a Righ degree of ordering 
and symmetry in the major plates at the present time. Major 
plates cover 9 to 2C % of the earth's surface and are 
Clearly differentiated in size and shape from mini-plates or 
splinters which cover areas of 3 % or less ( Nasca - 3%: 
Popitspiness - 156 i; “Arabia = 1%; "Cocos -".0.6 %). The 
lithosphere was shown to be highly organized with two 
antipodal quasi-circular plates ( African and Pacific ), 120 
degrees in diameter, separated by a ring of gquasi-elliptical 
plates ( Fig. 1.1). The semi-major and semi-minor axes are 
defined by triple junctions. The normal Mercator projection 
distorts the pattern in high latitudes but if the 
continental outlines are rotated so that the great circle 
path through the north and south poles and the center of the 
ring plates becomes the equator in an Eckert projection, the 
distortion becomes minimal (« Fig. 1.2 ). The Eckert ({ 
Ortelius ) projection has equal spacing of parallels and 
displays the the entire earth with an approximation to an 
equal-area projection. The quasi-elliptical plates have 
their major axes all aligned at about the same angle to the 
"pseudo-equator™". The symmetry inherent in the present 
pattern and the large dimensions of the major plates (120 


degrees as a diameter or semi-major axis) is strong evidence 
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Figure 1.1 . Azimuthal equidistant projections centered 
on the African plate and its antipodes in the Pacific plate 
for the present time (0 my). Note that both quasi-circular 
plates have a radius of 60 degrees. A ring of quasi-~ 
elliptical plates lies at a distance of 90 degrees from the 
center of the African and Pacific plates. 
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Figure 1.2 . The ring of quasi-elliptical plates at the 
present time displayed on an Eckert projection. The great 
circle path (at 90 degrees in figure 1.1) passing through 
the N and S poles andthe center of the ring plates was 
rotated to form a pseudo-equator in this projection. The 
Orientation of the quasi-elliftical plates is defined by the 
dashed lines from an African triple junction to a Pacific 
triple junction. Shallow earthquakes are shown aS crosses. 
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against dynamic systems which produce random plate 
distributions. The present evidence suggests that the 
physical properties of the earth may be described in terms 


of spherical harmonics with dominant terms of order three. 


In reconstructing a plate tectonic model for any period 
some rules or principles should be established. Some of 
these are absolute and result from restrictions imposed by 
the geometry of plate motions on a spherical surface. Others 
are in the nature of postulates made from observations, 
particularly over the sea floor, at the present time and may 
not be universally applicable throughout the earth's 
history. For instance, it is assumed that the plates remain 
rigid when they interact even though it is known that 
considerable deformation occurs, particularly when two 
continental plates collide as along the Alpine and Himalayan 
mountain chains. These continental interactions, and others 
like the transcurrent motion along the San Andreas or Great 
Glen fault systems involve minor amounts of crust and are 
assumed to be second order effects when considering the 
global results of continental drift. The following 
principles will be observed as closely as _ possible in 


obtaining the models for each period. 


1. The major tectonic features of the earth 
may be described by the interaction of six to nine 


uncoupled rigid plates of lithosphere with 
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dimensions 60 to 120 degrees ( Elsasser, 1969; Le 


Pichon, 1968; Kanasewich, 1976). 


2e The plates are created and destroyed along 
ridges and trenches respectively ( Vine and 
Matthews, 1963; Hess, 1962; Oliver and Isacks, 


1967; Isacks et al, 1968). 


3. Transform faults conserve lithosphere and 
are lines of slip between two plates. They lie on 
small circles centered on the pole of relative 
motion between two plates (« Wilson, 1965; McKenzie 


and Parker, 1967). 


4. The poles of rotation between pairs of 
plates is relatively stable for long periods of 


time ( Morgan, 1968; McKenzie and Parker, 1967). 


5. An absolute reference frame for plate 
kinematics is defined, to a gcod approximation, by 
minimizing the translational motion of plate 
boundaries. The velocity of plates is inversely 
proportional to the amount of continental 
lithosphere they contain. Purely oceanic plates 
move about 5 times faster than purely continetal 
plates which, at the present time move at about 


teoeech./ycar @ (Minster et al , 1974; Kaula , 


imi 


Le) ve leeaa® eter, tc go -- widen: ¥ 
- F , net 7 - ; 
a 1 


iw ie nea don ba pasate, Lat nasae ii 
sis) ShER 5 fh wusbosions “ eau abet fh 
ah De ‘Lae QaviMD > zSeR? ag GORE: ” bial 
| CO i ed 

wa! Ni ‘a 


ban: stad’ odwt ayieea0s. 44 tony, i peanere 7 oie 


fi ire ; 
q 


f &. 


4 


mAs ef [' weld? 528; ALQ GY ao ee, vy ; Pe 2 x bia | ar 
f ‘ 7 a iy 

us 

svz¢tetas 20 soy eyeing .va4eegs amt : 


AsMreRGN E200 WOSE TW) ) Same Os wee nist ol 
ott Aly Ve nena 


if 


t%  2hbeo ,faeetoe KOI S703 24. SECGr Set hy ye 
20 afep yaw yRole AG? padtad "thee 6f 0) 9G ae 209%, 
Laan cabsuucrnurelinddheted Abeer «asada. # eikhat 
etaly! «oa toes BE lei Sends b ibitna ld Aha dd vi 
éat Jate Sue kan sie Sesh’ 6 oy) gGantsss ior ctu bie 
take Se gOlioe desottavens st aa. eo ee 
(.GAtSenl’ at sep Ads "Ss yogaeisk on? preoncanet 
letasiriaco 14 INVOKE a#3 QF ESOL EIN aEAt 7 
Sts alpeene Piste) | «er 240d: ysals haaaesiace “ 
“beplad yous’ ¢enhe keg yedukt ¢oa2e 1. \sueds- 


«fei 28) Gon (“SUir sierata ad4 te. eae 


1975). 


6. The continental lithosphere extends to the 
500 fathom contour along coast lines ( Bullard et 


al, 1965). 


de Continental crust, by virtue of its 
buoyancy is not destroyed in any significant 


amount along plate margins («( McKenzie, 1969). 


8. A eugeosyncline is direct evidence for a 
trench and a subduction zone. Miogeosynclines and 
zones of diastrophism are secondary lines of 
evidence for the near-by presence of a_ subduction 


zone « Dewey and Bird, 1970). 


9. The continuing presence of a seaway or an 
ocean throughout more than one geological period 
is taken as direct evidence for the occurrence of 


sea floor spreading and the presence of a ridge 


systen. 


10. The geomagnetic field has always been 
dominated by a dipole component and, when averaged 
over the order of 106 years, the axis of the 
dipole coincides with the rotation axis of the 


earth (« Torreson et al, 1949; McElhinny and 
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BASIC DATA AND PLATE TECTONIC MODELS 


Various reconstructions of the continents have been 
made previously using Euler's theorem which states that any 
line on the surface of a sphere may be moved to another 
position and orientation by a single rotation about an axis 
passing through the center of the sphere. Notable examples 
are by Bullard et al (1965) and Smith and Hallam (1970) who 
used the fit of the continental margins to obtain a Triassic 
model. Smith et al (1973) made extensive use of 
paleomagnetic data to model continental positions during 
several periods. We are able to draw upon much new 
paleomagnetic data and also the dating of magnetic 
lineations on the sea floor in obtaining new computer 
assisted reconstructions of the continental margins for 
seven periods. The paleomagnetic data used is that 
Summarized by Irving (1960a,b, 1961, 1962a,b, 1965), Irving 
and Stott (1963) and McElhinny (1968a,b, 1969, 1970, 
1972a,b) and summarized by McElhinny (1973). In addition, we 
used a computer file, referred to here as the Ottawa list, 
compiled under the direction of E. Irving at the Earth 
Physics Branch, Department of Energy, Mines and Resources, 


Ottawa . Data were also obtained from a recent compilation 
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McElhinny and Cowley (1977). Finally , in some cases very 
recently reported data were taken directly from the 


publications involved. 


All of the paleomagnetic data Sretuad ty used is 
tabulated and commented upon when discussing the appropriate 
continental reconstruction. A standard format is employed 
for tabulating the data used in each of the seven 
reconstructions ( Tables 1 and 3, Appendix 1). For each 
continental segment Table 1 gives the number of poles 
available, their age range, the latitude and longitude of 
their mean, and the associated statistical parameters K and 
A 95,( Fisher , 1953). This latter parameter is the semi- 
angle of the cone within which the mean lies with 95% 
confidence. The precision parameter K is analagous to the 
invariance of a Gaussian distribution and thus increases as 
the poles are more tightly grouped. It is given by 
K = ¢ N - 1)f/¢ N - BR), where N is the number of poles 
involved (treated as unit vectors) and R is their vector 
resultant. AS a rough guide values of K greater than 20 can 


be regarded as indicating "good" grouping. 


The number of Separate continental segments for which 
data is available ranges from 8 for the Devonian and 
Ordovician to 13 for the Tertiary and the Triassic . The 
number of poles involved ranges from 35 ( Cambrian ) to 94 ( 


Carboniferous ) with an overall total of 436. The magnetic 
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lineations were determined by digital sampling of maps 
produced by Pitman et al (1974). Data on zones of 
glaciation, paleontology, and lithology were used to 
establish that polar and equatorial regions for each period 


agreed with the geological interpretation. 


An interactive computer program was developed to rotate 
the continental segments about any pole of rotation. The 
paleomagnetic results were used initially to position each 
continental segment on the appropriate latitude and in the 
correct orientation so that all averages of measured poles 
were exactly on the south pole. It was found to be most 
convenient , at this stage, to initiate an interactive 
routine which modified the fositions to eliminate overlap of 
continental margins while monitoring the results on a 
display device. For the Tertiary and Cretaceous periods the 
Magnetic lineations were used to establish relative 
longitude. For all periods the absolute longitude was 
obtained from an application of the fifth principle (see 
above). 

The sum of the square of the velocities of equal 

area portions of all continental blocks was 

minimized in a least squares sense to determine 

longitude. When the relative longitude could not 

be obtained from magnetic lineations , the largest 

contiguous continental group was given priority 


since present evidence indicates that purely 


ek 


hice er ey Ate r ames: Tee ey!) 
Duh | Waited inte ba ; 
ste “to ebatgaee Vaekghe a> 
ys BORA », wo aket r piven? fs ce 
a ee yeotodse: ae be : | 
Pa aoe : 400 ayo toes ipso lay gai al dahels ‘emt 
oO SHRI S CeCe Te ee D oops 

mn a ae 4 pay oD 

od ‘oy bedo Roth ake wet pons se vinting? ahaa 
wit lee tssatey Zee Mlaes® (gan Foes iat a ae’ am 


aeons tes i ineq oF QELS ISRRE Bese oxen! Paeet “aad 


Si pay OL tals i So S190 3) BAe Arh ie 


fs 


- 
Xs 
a] 


: ee 
iii oe geg! te Sebegave Leos gens Ua; ac: Ssiteatale 


ec “9 Wueh* sah PS PEGE: I shee, aie 


f 


car ,arheal 4h of Seo tah oeS er 1. a ans oe vis 
Yo aetiava (PaeleLie eed la yes) wn hohnenae. #5k 


io Ag¢lowear S32) “heap hae Mel de PaaS 8 my 


= 


a ; ; ' , ai aa 
oy 209052 4a 40080 6307-3; TARR, 24P FOF qe ot aad *% 
' . { vw 2 


; 7 " . ia hs i 
out e2ins davies? és 64 hohe Get. eiitreD sere) See m 


2n8 shad. ig nos Gin igoeds i? +s SS PULP RATER ; tot j 


soap Sige Mag) th Sets ony Seo lak Teallige Ke Merah = al 
3 ‘a 


| i A ¥ 
knee te Saks sbaker: 99 20. samipaolh es swale’ Mans. 


a hs 23aas ii LAS SA Capo ES 4 ae re a zi 
n : 

anim Terehoos Ganon wovanh= Yarai ®B eben 8 oe 

‘fou Phaep “stigigucl stiteleg bit Wann: enna 


; ee a3, Prbiecans! JR Ihg be aoTr hedca ee: a va 
ra 


ay, wey 


| Parebes eet gee! GHerD iartwab omen / aramben Pore 


. ‘Oe ACE 
phaser fend  actent iar opaad ten: age ig: ‘ge vis et 


: at 
7 i> wT 
ee . a | ie | ‘2 oe 


~y iti. ; el gon ; fi ‘a va a 


bY 


continental plates have the lowest velocity. The 
velocity was determined along a small circle, 
centered on the pole of relative motion from one 
period to the next. 
This procedure was applied, in orden of area, to the 
remaining group of continental segments. The solution is not 
unique but is the most conservative estimate and is valuable 
in giving a quantitative estimate of the minimum velocity 


which satisfies the paleomagnetic observations. 


The models for each period have been generated by a 
digital ccmputer and a Calcomp plotter on a Mercator 
projection because of its familiarity. More specifically the 
projection is a Miller modified Mercatcr one in which the 
map ordinate is y = c ln tan (45 + 0.4 lat) where lat is the 
latitude in degrees and c is a_ scaling constant. This 
modification allows one to depict the earth from pole to 
pole. For purposes of interpretation an azimuthal- 
equidistant projection with the origin approximately on the 
centroid of the continental masses is more useful. This 
projection has the property that great circle paths from the 
Origin to any point on the sphere transform into straight 
lines from the center of the projection. Regions at 
epicentral distances less than 90 degrees have minimal 
distortion. At greater distances the azimuthal distortion 
becomes serious, reaching a maximum at 180 degrees, where a 


point on the opposite side of the earth from the origin is 
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transformed into the bounding circumference. The distorted 
portion is, of course , conveniently placed on the ocean 


dominated portion of the earth. 
Tertiary Period - Anomaly 13 - 38 MY 


Magnetic lineations for anomaly 13 ( Pitman et al, 
1974) were matched to give the relative positions of the 
continental blocks for the Oligocene - Eocene boundary 38 my 
ago ( Heirtzler et al, 1968; Anonymous e 1964) ( Fig. 1.3 )- 
Paleomagnetic observations were not used to determine any of 
the relative rotations but the mean pole position ¢ for all 
observations listed in Table 1 of the Appendix 1 and shown 
on the diagrams ) was used to obtain the absolute position 
of the spin axis in the Tertiary. The absolute longitude for 
all continents was obtained simultaneously by minimizing the 
velocity of 3 by 3 degree equal area continental segments 
between the time of anomaly 13 and the present. This simple 
procedure gives a solution which compares very well with 
reconstructicns of the east central Indian Ocean by Sclater 
and Fisher (1974); the North Pacific by Atwater (1970) and 
Atwater and Molnar (1973); the North Atlantic by Pitman and 
Talwani (1972 ). Note that the position of magnetic anomaly 
13 off the coast of North America relies heavily on the 


superposition of a very short segment east of Cape Horn in 


South America. 
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Figure 1.3 . The position of the continents at the time 
of magnetic anomaly 13 ( Eocene - Oligocene boundary ) on an 
azimuthal equidistant projection and a Miller -modified 
Mercator projection. Arrows indicate the trajectory of the 
plates between 38 my ago and the present on a mininun 
velocity assumption. The velocity vectors are placed at 
points where the continents have a minimum and a maxinun 
plate velocity. Mean paleomagnetic poles and their 95% 
confidence circles are shown. N and S indicate the north and 
south poles. 
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Figure 1.4 . Tertiary geology and postulated plate 
boundaries on an azimuthal equidistant projection. The shape 
of the Pacific plate may be studied in the lower diagram 
which is antipodal to the map above. The symbol V indicates 
zones of Tertiary volcanisn. 
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The paleomagnetic data used is summarized in Tables 1 
and 2 of the Appendix 1. A total of 66 poles from 13 
continental segments is involved. For the most part , these 
data are summarized by McElhinny (1973), with updated 
results for India from Wensink (1975), aan data for Siberia 
from the Ottawa list. In this latter case only the most 
reliable results, that is those awarded two stars by Irving 
et al, have been considered. The poles from within any given 
continental segment are generally well grouped, with values 
of Fisher's precision parameter ( K ) ranging from 26 to 84 
_« Exact ages cannot be associated with all the poles in 
question and inevitably the paleomagnetic sampling 
represents a much broader time interval than that associated 
with the production of anomaly 13 . Forty-three of the 52 
poles lie in the interval Paleocene to Oligocene (65 - 23 my 
), but the overall range is from upper Cretaceous to 
Pleistocene ( see Tables 1 and 2 of the Appendix 1 for 


details). 


Because the measured pole positions were not used in 
determining the relative position of the continental 
segments the paleomagnetic results are an independent 
verification of principle 10 for the Tertiary period. 
Fisher's precision parameter, K , may be used to quantify 
the agreement. If the continents are restrained to their 
present day geographic locations, the K value is 21 . The 


precision parameter increases to 30 if the continents are 
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placed on the pcstions indicated by the magnetic anomalies 
on the sea floor. Despite the disparity in ages of the 
samples involved, the increase in precision passes the 
standard test for the ratio of the the two K values 


( McElhinny , 1964) at the 80% significance level. 


Eocene and Oligocene global geology is summarized in 
figure 1.4 which shows the mid- Tertiary earth on an 
azimuthal-equidistant projection centered on the mean of the 
continental segments and also centered on the opposite side 
in the Pacific Ocean . The summary maps and worid-wide 
correlation charts of rock formations by Kummel (1970) were 
the primary source of information but many other maps were 
consulted throughout this study. The mid-oceanic ridges were 
obtained from the position of anomaly 13, 38 my ago. The 
position of the subduction zones was inferred from the 
geologic evidence. Episodes of volcanism in western South 
America occurred in the Miocene and Pliocene ({ Harrington, 
1962) and it is possible that the Phoenix ( Larson and Chase 
71972) and South American plates were not separated by a 
subduction zone prior to the late Eocene. In post- Eocene 
times this plate separated into the slow moving, dominantly 
continental, South American plate and the fast moving, 
predominantly oceanic Nascan plate. The present remnants of 
the Farallon plate « McKenzie and Morgan , 1969 ) are the 
Cocos and Juan de Fuca plates. The parts of continents 


having the maximum and minimum velocities for their small 
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circle paths ketween the Tertiary and the present time are 
shown on the figures. It must be emphasized that the 
velocities and paths are not unique and represent minimun 


estimates. 


It was noted in figure 1.1 that the African and Pacific 
quasi-circular" plates are symmetrically located with 
respect to the geographic pole at the present time. This 
same symmetry of the African and Pacific plates is evident 
in the Tertiary period. The equator passes close to the 
center of these two plates and also the center, C , of the 
entire continental lithosphere. The diameters of the African 
and Pacific plates are 100 and 120 degrees respectively. The 
group of "ring" plates consists of «1) South America and 
Phoenix , (2) Antarctica , (3) Australia , (4) India , (5) 
Eurasia , and (6) North America .« The maximum velocity of 
the continental plates, under the assumption that 
Simultaneous minimization of all segments yields absolute 
longitude, varies from 8.6 to 0.4 cm/yr ( Table 1, Appendix 
1 , and Figure 1.3 ). The Indian plate moves northward with 
a velocity of 5.9 to 8.6 cm/yr while the next most rapid 
plate is the Australian with a northward velocity of 4.5 to 
6.6 cm/yr.e This is in accord with present day observations 
that plates with a high ratio of oceanic to continental 
crust move most rapidly. Since Antarctica is almost 
surrounded by spreading centers tes movement is 


geometrically restricted to between 0.5 and 1.6 cm/yr. 
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Associated with che "ring" plates are minor segments in the 
Mediterranean and the Caribbean seas and the Kula and Juan 
de Fuca plates. These fragments are of great interest to 
studies of local geology but are unlikely to be a 
Significant part of the boundary conditions which determine 
the dynamics of the global system. In summary the plate 
tectonic pattern in the Tertiary period was similar to what 


is seen at the present time. 
Cretaceous Period - Anomaly M1 - 110 MY 


Paleomagnetic observations were used to make a 
preliminary model of the continental arrangement at the base 
of the upper Cretaceous , 110 my ago. A minor separation of 
South America and Africa is necessary to satisfy the 
available magnetic lineations for anomaly M1. The solution 
in figure 1.5 is very Similar to that of Smith et al (1974). 
The position of the magnetic lineations in the Pacific 
relative to the North and South American continents were 
taken from figure 1.7 of Larson and Pitman (1972). Their 
model used both paleomagnetic poles and the position of 
anomaly M1 from Larson and Chase (1972) to obtain a 
convincing demonstration for the existence of two stable 
triple junctions which separated the Pacific, Kula, Farallon 
and Phoenix plates. New Zealand, the Auckland Plateau and 
New Caledonia have been rotated toward Antarctica and south- 


east Australia in accordance with the magnetic lineations 
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Figure 1.5 . Model of the continents for the Cretaceous 
period at the time of magnetic anomaly M1. The longitude is 
not absolutely determined but was obtained by a least 
squares minimization of continental velocities between the 
Cretaceous and Tertiary periods. The upper figure shows that 
the Laurasian poles form a separate group from the Gondwana 
poles. 
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Figure 1.6 . Cretaceous geology and postulated plate 
boundaries on an azimuthal equidistant projection. The 
double set of triple junctions in the Pacific is shown with 
Minimal distortion in the lower diagran. 
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which show the area starting to separate at the base of 
anomaly 32, 76 my ago. The Kolyma block has been detached 
from Siberia along the Chersky foldbelt following the 
geological evidence reported by Churkin, (1969,1972) 
although the paleomagnetic evidence is eee for this 
period. The preservation of magnetic lineations M1 to M13 
(about 110 to 130 my ago) in the Bering Sea basin ( Cooper 
et al, 1976) is strong evidence that Alaska and the Kolyma 
block have remained a single block throughout this critical 


period. 


Fifty-six paleomagnetic poles from 12 separate 
continental blocks were used and K values vary from 15 to 
114 (table 1, Appendix 1). Fifty-two of these poles are 
Cretaceous in age, 3 are listed as Lower Cretaceous to Upper 
Jurassic and 1 has a qucted age range of Upper Jurassic to 
Paleocene . Most of the data is summarized by McElhinny 
(1973) with additions from lists XIII and XIV . Newly 
reported poles permit tighter temporal constraints to be 


placed on the African data, and the Australian data is that 


reported by Schmidt (1976) . 


Fisher's precision parameter increases from 7, for no 
continental drift between the present and the Cretaceous , 
to 21 for the model shown in figure 1.5. This increase is 
Significant at the three standard deviation (99%) level. The 


distribution is not as concentrated as in the Tertiary and , 
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in fact, the poles for the northern group of continents ( 
Laurasia ) are clearly separated from the poles of the 
southern group ( Gondwanaland ) . Any attempt to Superimpose 
the two sets of pole positions leads to substantial overlap 
of Africa and Eurasia . This pattern Reina clustering will 
be found to be present throughout the Mesozoic and Upper 
Paleozoic Eras. Its existence in the Permo - Triassic was 
reported by Briden et al (1970) . It can be accounted for by 
the presence of a small non-axial multipole component in the 
earth's magnetic field in addition to the dominant axial 


dipole component. 


On an azimuthal-equidistant projection the continental 
lithosphere for the Cretaceous period displays a most 
remarkable symmetry. All the continental segments are within 
90 degrees of their centroid which lies on the paleo- 
equator. The Tethyan sea lies opposite the opening in the 
North Atlantic Ocean forming the North American and Canary 
basins. Eugeosynclines form a rim nearly all the way around 
the block of continental lithosphere in figure 1.6 . It is 
apparent that the four oceanic plates ( Farallon, Phoenix, 
Kula and Pacific ) generated from the twin sets of ridge- 
type triple junctions froduced active subduction zones 
around Pangaea . The spreading center which had created the 
Tethys sea was weak and beginning to change character 
towards the end of the Mesozoic Era . The geometric 


arrangement of the spreading centers and the symmetry of 
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the continental lithosphere is considerably different fron 
that of the Tertiary and the present time. The velocity 
vectors showing continental velocity along small circle 
paths are dominantly outward from the African plate. The 
velocity of all continental segments are very uniform; 
excluding Africa , the minimum and maximum velocities vary 
from 2 to 5 cm/yr ( Table 1, Appendix 1 ). A spreading 
center between South America and Africa is starting to 
separate these two continents. Although more subdivisions 
are beginning tc be apparent, there are basically only three 
large continental plates, Gondwanaland , North America and 


Eurasia opposite the four large oceanic plates. 


Triassic Period - 190 MY 


AS a standard for comparison the well-known 
reconstructions by Bullard et al (1965) and Smith and Hallan 
(1970) were used without modification to produce the 
Supercontinent of Pangaea ( Wegener, 1929). Their solution 
minimizes the mean Square misfit of the longitude, relative 
to the pole cf rotation, of the continental margin. The mean 
position of the south pole was obtained from paleomagnetic 
data as shown in figure 1.7 and in Table 1 of the Appendix 1 
- The mean age of these data is 190 my on the Jurassic - 
Triassic boundary. The pole for Kolyma diverges widely from 
the mean and was not included. This problem will be 


discussed later. A total of 90 paleomagnetic poles from 13 


25 


; ne 

hon jonsenee we a sly stead seta a a A + 
2 nON it aaa pee, oh ee ene i’ bh ia ae ee 
2 45) at ee Tene, ADE: “Wage tay ch foo Ne | insia | 
amy, vadekty prev eds qos > | sagan: a sr or 
SaTGitty «YRevie Sam. as serps: ci tos bag tal Ae 
pA) AL? Ben ee Ue Arh * mpubek at Sm Ce a 2 i el Z a 
ater oh 2 3h basydy ir sien Ne a - 

Er pers. & ea ies Rk | Sie fs io RRS monasti 5 


niitawetibye Waa reyes wa I Eee cr | eats Sia baigs seat 


: 


, 7 alt can 
J i, pita yliass 26 Be Osea te oF PERSE ty a mates 
Wry. 42 SQA (3223048 ot SLA tlds ce) ge ae Fit + a 
) ¢, 
cate ie Mw heeo Spices Bie cen 


| 
L oat 
th Cer bpraaee'* WZAALNE ij 
Fe 7 : 
. ¥ : ; j : - - a=: 
BUNAE eg) ™ Et: abe baegnoo \" dek! a ig ay 
1 ~ Le . i : at J 1 


was da? bait Apia Site raat) Ya 2 Aus tas “et Ad tee ; 
Nee. ei ha 3 oF AvRpaLtehor incre a i Seyst T8n | 
anitawhies ' aeSnd) «feo et stdvowni j i npesh 20 shen b gees 4 
ou Lea 9 herr abur sonst ays 10) ..HASte ‘aap esa ate Dacre 
ree ene peoraw hey peiisnes add Ya. (uot tatey 2 soy. x 
; > pabbanaca, ek eat nw S466 As athe nite * me | : 
t insBey gw undg. Wei ¢ BNET A) tus 0. oped oe eee we hess 
° p tiled v6 wa? {e wide Sr est ards ho wpe tee a . 
het and oe ky OGTR 203 e804 a4 yapbowed oy 8 


thy wition, eth | (Wehaltenes 


bee ne | eq. 


oh 
‘goes ago. Sep raenn ban oF te tong a aosed, 
fina, 
a jf Sac 
7 re. (4 ‘ ; ; 
; _ a 


Figure 1.7 . Model of the continents according to 
Bullard et al (1965) and Smith and Hallam (1970) on an 
azimuthal equidistant projection. The velocities in cm/yr 
are based on a least squares minimum velocity assumption 
between the Triassic and Cretaceous . The separate group of 
LaurasSian and Gondwana poles are indicated. The Kolyma pole 
misfits as badly if Kolyma is included with North America or 
Eurasia . 
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continental segments is available and Fisherts precision 
parameters range from 31 to 111. For the northern continents 
the data are essentially that described by McElhinny (1973) 
but for Gondwanaland the recent summary by Schmidt (1976) 
has been used. In the former case only Triassic data are 
involved, but Schmidt includes some Jurassic poles in his 
compilation. Omitting Kolyma, Fisher's precision parameter 
increases from 4 for no continental drift between the 
present and the Triassic to 28 for the model shown in figure 


AAA 


The reconstruction cf Bullard and others has been 
criticized because it conflicts with geological evidence in 
the overlapped portion of Central America ( McBirney and 
Bass, 1969; King, 1970; Ladd, 1976). Following the 
principles established in the introduction the interactive 
computer program allows one to arrive at a solution which 
does not overlap portions of Central America which have 
outcrops of Triassic or older rocks. The alternate Triassic 
model is shown in figure 1.8. Fisher's precision parameter 
increases from 4 for the case of no continental drift to 
only 21 for this model but the increase is still significant 
at the 99.9% level . A better fit of the paleomagnetic data 
can only be constructed by overlapping continents as was 
done in figure 1.7. Our solution is preferred to the one by 
Bullard et al (1965) not only because there are no 


objectionable overlapping portions but because our 
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; Figure 1.8 - Our model of the continents for the 
Pevassic aperiod.») The) Kolyma pole. (w )ihasia good fit if 
Kolyma and possibly Alaska are at the same latitude as Japan 
(shown dotted). W is the position of the Kolyma pole for the 


dashed outline. Note that Central America does not overlap 
South America as in figure 1.7. 
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Figure 1.9 . Triassic geology and postulated plate 
boundaries on an azimuthal equidistant projection. The 
triple junction in they eraciric is) hypothetical =out 
reasonable on the basis of eugeosynclinal deposits ’ 
interpreted as due to subduction zones, around the periphery 
of the Pacific Ocean. 
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reconstructions for the Paleozoic Era indicate that Pangaea 
did not continue to exist but consisted of two or more 
continents that moved independently. There are two main 
changes over the previous solution. Cay North America and 
Eurasia have been shifted away from Africa to eliminate any 
overlap of Central America with Precambrian and Paleozoic 
outcrops. (2) Kolyma and Alaska have been detached from 
North America and rotated into a position in accord with the 
Triassic paleomagnetic data. This second alternative is the 
more uncertain. Not only is it difficult to know where 
Alaska and British Columbia should be separated from North 
America but also the longitude cannot be be determined 
unambiguously. The geological evidence is also ambiguous. 
Kolyma and Alaska will ke kept together with North America 
in producing models for more ancient periods because the 
modifications, if required , are easily visualized. Two of 
the possibilities for the Kolyma group are dotted in figure 
1.8. The absolute longitude for Pangaea was obtained using 
the least square solution for velocity between 190 and 110 
My years ago. The paths of finite rotation along small 
circles were Similarly obtained non-unique ninimua 
estimates. From the sparse data on M type magnetic 
lineations it is unlikely that there is a large longitudinal 
shift so the velocities given are probably close to their 
true value. It is seen that the large continent of Gondwana 
has a velocity less than 1 cm/yr between the Triassic and 


the Cretaceous periods. On the other hand, parts of Laurasia 
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have velocities of 2 tc 5 cm/yr in the form of a rotation 
Which opens up the Atlantic Ocean and closes the Tethys Sea 
- As in the Cretaceous period, the pole positions form two 
distinct populations and any attempt at superimposing them 


leads to a greater degree cf continental overlap. 


Geological information has been included on the new 
Triassic model in figure 1.9 and an attempt is made to 
sketch in the ridges and subduction zones. The continental 
grouping is not as symmetric as in the Cretaceous period but 
the same basic pattern is evident. The equator is close to 
the centroid of the twce continental plates of Laurasia and 
Gondwana . Plates dominated by oceanic lithosphere are Kula, 
Farallon, Pacific and Tethys . The tectonic activity does 
not seem to demand more than 6 or 7 large plates. At least 
one ridge-type triple junction is required in the Pacific 
and one section of the ridge follows an equatorial path to 
produce the Tethys Sea . If the Pacific ridge-type triple 
junction is stable then the subduction zones that result on 
the periphery of the continental margins may effectively 


keep Pangaea as a stable entity for several geological 


periods. 


Permo - Carboniferous Period - 280 MY 


Ninety-four poles are available but these represent 


only 10 continental fragments. With the exception of India 
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the K values lie between 25 and 178, and all but one of the 
poles are Carboniferous or Permian (see Table 1, Appendix 1 
)- The data is as summarized by McElhinny (1973), except for 
South America ( Thompson , 1972), Australia ( McElhinny and 
Embleton , 1974), and India « Wensink 1975). In this last 
case 5 poles are listed and they are poorly grouped (« K = 
9). Rather than attempt any more or less arbitrary rejection 
of data we have chosen to simply average the poles and let 
the large error circle reflect the lack of precision for 


India during this time interval. 


The arrangement of Ncrth America and Europe relative to 
Africa and South America must be different from that in the 
Triassic . Consequently it must be assumed that the 
"optimum" fit achieved by Bullard et al (1965) and Smith and 
Hallam (1970) ., in so*far as ‘it ever /existed, was a 
transitory phenomenon. As in the Triassic , a limiting case 
for the absolute longitude was obtained by using a least 
Squares solutior on Pangaea as a whole for a minimum 
velocity between 280 and 190 million years ago. Much of the 
Feast y is taken up by a general northward drift of Pangaea 
and is under 4 cm/yr for all continents. The Tethys sea was 
consistently wider as we proceed to earlier periods. The 
south pole is centered on the well-known zone of glacial 
deposits and erosional features of eastern South America, 
southern Africa, Antarctica, India and Australia . AS in the 


Mesozoic Era the pole positions for Gondwana and Laurasia 
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Figure 1.10 . Model of the continents at the Permo - 
Carboniferous boundary. The Laurasian and Gondwana poles 
form two separate groups. The velocity vectors in cm/yr are 
minimum estimates from the Permo - Carboniferous to the 
Triassic periods. 
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Figure 1.11. An alternate computer model for the Permo 
- Carboniferous in which the Antarctic Peninsula is west of 
South America . Based solely on paleomagnetic data this 
model is equally probabie in the Mesozoic Era but is less 
probable in the Devonian and older periods. 


NORTH AMERICA CL-PL 
Ost W. EUROPE CU-PL 

RUSSIAN PLAT. CL 

SPAIN CU-P 

SIBERIA CL-TR 


ALTERNATE SOUTH AMERICA C-PU 


AFRICA CU-PL 
AUSTRALIA CU-PU 
ARABIA P 

INOIR CU-PU 


PERMO-CARBONIFERGUS 


eM MK + ON X + 


34 


Figure 1.12 . Permo - Carboniferous geology and 
postulated plate boundaries on an azimuthal equidistant 
projection. The locations of glacial indicators are denoted 


by G. 
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form two distinct populations in the upper Paleozoic and 
they cannot be superimposed without a large amount of 
continental overlap ( Fig. 1.10 ) . Fisher's precision 
parameter, ( K ), increases from 3 for no continental drift 
between the present and the Permo - Carboniferous to 18 for 
the model shown in figures 1.13 and 1.14. This is 


Significant at the 99.9% confidence level. 


In the course of computerized modelling an alternate 
fit of Antarctica and South America against Africa was 
arrived at ( Fige 1.11 ). Fisher's precision parameter 
increases from 3 for no continental drift between the 
present and the Permo - Carboniferous to 19 for this model. 
A similar reconstruction of Gondwanaland has been proposed 
by Barron et al, (1977) and it has a precision parameter of 
16 ( Table 2, Appendix 1 ). However their model places 
Madagascar east of Mozambique and there is an oceanic gap 
between Africa and India . The basic reconstruction of South 
America, Antarctica and Africa in figure 1.11 was applied to 
paleomagnetic data from the Cretaceous to the Cambrian 
periods. The results are summarized in Table 2, Appendix 1. 
In general one cannot favor the traditional Bullard or the 
alternate one because both are equally probable in a 
statistical test for the Mesozoic Era. However, for the 
major part of the Paleozoic Fra the more traditional 


solutions we offer are significantly better at the 60 to 90% 


confidence level. 
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Global geological data is superimposed in figure 1.12 
together with postulated subduction zones and ridges. The 
pattern is similar to that in the Triassic although the 
Symmetry of the continental blocks is distorted by the 
widening of the Tethyan seaway. Continental collision is the 
dominant form of interaction and is assumed to be the cause 
of the final phases of the Appalachian Orogeny in North 
America, the Hercynian Orogeny in Europe and northwest 
Africa , and the Uralian Orogeny between the Baltic and the 
Angaran cratons. The continents of Laurasia and Gondwana 
must be. treated as twc or more interacting plates. 
Subduction of oceanic plates is assumed to be responsible 
for the Kanimblan Orogeny in Australia , and the Antler 


Orogeny in western North America . 
Devonian Period - 370 MY 


Paleomagnetic data is available for only 8 continental 
fragments, and although the total number of poles is 50, 4 
of the 8 fragments are represented by less than 5 poles. 
Precision parameters range from 20 to 162 and ages cover a 
considerable span frcm Middle Silurian to Lower 
Carboniferous . The single African pole is that reported by 
Hailwood (1974), otherwise the data is that summarized by Mc 


Elhinny (1973 ) updated from lists XIII and xiv. 
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Paleomagnetic results require a wider dispersion of 
Laurasia and Gondwanaland in the Devonian . It is probable 
that the Tethys seaway was a continuous channel dividing the 
continental masses into two major parts. The precision 
parameter increases from 6 for no continental drift from the 
present to the Devonian to 41 with the reconstruction shown 
in figure 1.13. This is significant at the 99.9% confidence 
level. The longitude of Siberia , and therefore its position 
relative to Europe , is ambiguous but the formation of the 
Ural foldbelt in the Carboniferous places a constraint on 
the separation. All of the continental segments have a 
northward component of velocity close to 3 cm/yr. The 
distribution of continental lithosphere on an azimuthal- 
equidistant projection in figure 1.13 shows the same 
symmetry as in the Mesozoic and Upper Paleozoic despite the 


widening Tethyan gap. 


Geological information has been added in figure 1.14. 
As has been pointed out many times ( Briden and Irving, 
1964; McElhinny, 1967), the distribution of Devonian reefs 
compares well with the location of the paleomagnetic 
equator. Note also that the * Old Red Continent ' in Europe 
straddles the equator, in agreement with the fossil fauna 
and continental rocks which are interpreted as having been 
deposited in a tropical and semi-arid climate. Since the 
distribution of continents and their associated geosynclines 


is similar to that in the Permo - Carboniferous , the same 
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Figure 1.13 . Model of the continents in the Devonian 
period. The relative postion of Siberia is most uncertain 
and the longitude was determined by requiring the velocity 
from the Devonian to the Permo - Carboniferous to be a 
minimum. 
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Figure 1.14 . Devonian geology and postulated plate 
boundaries on an azimuthal equaidistant projection. The 
locations of reefs are indicated by the letter R. 
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oceanic ridge-type triple junction is assumed to be active 
still. One arm of the ridge system forms a near- globe 
encircling system around Gondwanaland . The complex pattern 
of diastrophism cutting across Siberia and China may be 
indicative of a collision of segments of the Asian landmass 
but the sparceness of the paleomagnetic observations does 


not justify any separation. 
Ordovician Period - 470 MY 


There is a considerable body of paleomagnetic data for 
the Lower Paleozoic to indicate a major reorganization of 
continental segments and some large scale continental drift. 
In an effort to analyze the changes as a function of time an 
Ordovician reconstruction has been attempted. The quantity 
and quality of the observational results are lower than for 
later periods but since the resultant model is similar to an 
independent one using Cambrian data, it is thought to have 
some validity. In order to obtain a meaningful Ordovician 
reconstruction we have restricted the temporal spread of 
Suitable paleomagnetic poles as much as possible. This leads 
to a compilation of 45 poles from 8 ccntinental segments, 
although only Siberia is represented by more than 10 poles. 
One pole from the North American compilation of Deutsch and 
Rao (1977) is listed as Cambro- Ordovician . The Western 
that of Faller et al (1977), in which 


European summary is 


all the sampling sites involved lie in the British Isies and 
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may not therefore yield a pole characteristic of Western 
Europe as a whole (see discussion in McElhinny, 1973, page 
208). The South American poles we have listed are those 


reported by Thompson (1973). 


The paleolatitude fer all continental segments becomes 
quite low in the Ordovician and Cambrian periods. This 
places all the continental plates on or near the equator 
(figure 1.15) . and to accomodate them the variation in 
longitude is highly constrained. Omitting the 
uhrepresentative Western European pole, the precision 
parameter, K , increases from 3 for no continental drift 
between the present and the Ordovician to 33 for the 
reconstruction shown in figure 1.15. This is significant at 


the 99.9% confidence level. 


Geological data is superimposed in figure 1.16. Africa 
has undergone a large amount of drift because the south pole 
now appears in the Tethyan Ocean north of this continent. 
The continental segments are arranged symmetrically along 
the equator. This configuration suggests a plate pattern 
similar to the one at the present time with the “ring" 
plates on the paleo-equator but with dominantly oceanic 
plates covering the poles. The individual plate boundaries 
Cannot be established with any certainty because of the 


change in pattern and the imprecision of much of the data. 


The spreading center in the Tethyan Ocean must have been 
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Figure 1.16 . Ordovician geology and postulated plate 
boundaries on an azimuthal equidistant projection centered 
on the south pole. In the lower figure the projection is 


centered on the north pole. 
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quite active to have created such a wide seaway and to have 
carried Gondwana to its indicated position. The " Pacific" 
plate, now centered on the north pole, must also have been 
very active to generate the Caledonian Orogeny , along the 
periphery of the "ring" plates. The Caledonian Orogeny was 
episodic from the Late Cambrian to the Middle Devonian and 
this appears to have reorganized the plate tectonic pattern 
drastically. Certainly, the velocity of the continental 
segments bececen the Ordovician and the Devonian is rather 
high, often with a northward component of 5 to 7 cm/yr but 
much more paleomagnetic data is necessary to document the 


precise position of the continental segments. 
Cambrian Period - 550 MY 


The continental fragments are represented by a total of 
only 35 poles, some of which are uppermost Precambrian and 
others Lower Ordovician . With the exception of South 
America , K values lie between 19 and 99 . For North America 
we have followed Van der Voo et al (1976) and for India we 
have used the summary by Wensink (1975). The South American 
Summary is that given by Thompson (1973) who lists 5 
Cambrian poles; individually these poles are of poor quality 
( only 1 has an alpha 95 under 20 degrees) and aS a _ group 
they are highly scattered ( K =4, A 95 =41 degrees). Big 


taken at face value they imply large amounts of polar 


Wandering within the Cambrian . Whilst this may in fact be 
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; Figure 1.17 . Model of the continents in the Cambrian 
period. The south pole is at the center of the azimuthal 
equidistant projection. 
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Figure 1.18 cambrian geology and postulated plate 
boundaries on an azimuthal equidistant projection centered 
on the south pole. Symbols A mark the location of 
Archaeocyathus fossils. In the lower figure the projection 
has its origin at the north pole. 
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true (see Hailwood , 1974, for example) we prefer to adopt 
the conservative approach of excluding these data until they 
are corroborated by studies from other continents. 
Consequently the South American pole is illustrated on 
figure 1.17 but is not used in the reconstruction and the 
associated statistics. Fisher's precision parameter 
increases from 5 for no continental drift between the 
present and the Cambrian to 26 for the model shown in figure 
1.17. This is significant at the 99.5% confidence level. If 
Australia and Antarctica are kept together with Africa to 
maintain Gondwana the precision parameter increases to only 
12, (table 2, Appendix 1) , even omitting the South American 
data. The pattern and polar symmetry is very similar to that 


in the Ordovician . 


Geological data and the postulated plate boundaries are 
Shown in figure 1.18. The position of the paleo-equator 
corresponds well to outcrops built from skeletons of the 
reef organism, Archaeocyathus . The proto - Atlantic between 
Europe and North America that was postulated by Wilson 
(1966) and by Dewey and Bird (1970) is required here by the 
paleomagnetic data although the longitudinal change is 
uncertain. The Tethyan and Australian spreading center must 
have been fairly intense to generate the rotation of North 
America, Europe and Asia with velocities of 3 to 4 cm/yr. 
The spreading center between Antarctica and Africa must have 


been dying out as Gondwanaland is a recognizable entity in 
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the Ordovician . All continental plates require a mininun 
velocity of between 2 and 4 cm/yr between the Cambrian and 


Ordovician periods. 
INTERPRETATION 


Using paleomagnetic cbservations and a small number of 
principles based on plate tectonic data and concepts it has 
been possible tc reconstruct continental fragments for six 
periods between the Cretaceous and the Cambrian in a 
Statistically significant manner. The grouping of the 
paleomagnetic poles show an improvement in Fisher's 
precision parameter at the 99% or 3 standard deviation 
Significance level. The model for the Tertiary period was 
made using magnetic lineations and is an independent test of 
the paleomagnetic method. An alternate reconstruction 
following the early werk of Bullard et al (1965) and Smith 
and Hallam (1970), hereafter referred to as the " Bullard " 
model, for brevity, was also made. This " Bullard " model 
for Pangaea in the Permo - Triassic ( Fig. 1.7) was kept as 
a distinct unit, allowing polar wander but no continental 
separation, from the Triassic to the Cambrian. It has often 
been used, without justification, for displaying tectonic 
and paleontological data from the Lower Paleozoic Era . It 


must be emphasized that neither Bullard nor his coworkers 


have ever claimed any validity for this model over such an 


extended period of time . Indeed, Smith et al (1973) reached 
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a similar conclusion and have put forward a set of models, 
not using plate tectonic principles, but employing the 
paleomagnetic data available to them, in which Pangaea is 
broken apart in the Paleozoic . From Table 2, Appendix 1, it 
is seen that the Fisher's precision paraeter, K , for the " 
Bullard " model, degenerates from 28 in the Triassic to 4 in 
the Cambrian . The improvement in our model over the " 
Buliard " one is significant at the one standard deviation 
level for the Permo - Carboniferous and Devonian periods and 
at the 3 standard deviation level for the Ordovician and 
Cambrian periods. Therefore we reject any reconstruction in 
which Pangaea existed for more than a brief time in the 


first half of the Mesozoic Era. 


Models using paleomagnetic data contain ambiguities due 
to the uncertainty in the longitude. The minimization with 
respect to velocity of the plates to define the longitude, 
although non-unique, has proven to be of great value. 
Alternate positions of the continental segments can be 
readily visualized by consulting the Mercator projections 
and the increase in plate velocity can be estimated by the 
relative shift from the minimum velocity point . From the 
Devonian period to the present time the dated magnetic 
lineations and the reconstruction of Gondwana and Laurasia 
place severe restrictions on the longitude (unless one has 


reasons to believe in a shift of the earth's entire 


lithosphere along lines of latitude). In the Devonian period 
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the North American and Asian continents are restrained to 
the position shown by the geological evidence for the 
formation of the Urals . In the Cambrian and Ordovician 
periods the shift of all major segments to an equatorial 
position places very tight constraints on the longitude. In 
Summary, unless the paleomagnetic evidence is missing, as in 
China , or in error, the relative longitude of all major 
continental segments is estimated to be restrained within 10 
degrees . Their velocities are then within 1 cm/yr of their 


true values. 


If we ncw accept the continental reconstruction as 
approximately correct, the azimuthal equidistant maps, with 
origin on the center of mass of the continental margins, are 
useful in examining various geometrical properties. In all 
periods there is present a single large ocean, similar to 
the present Pacific Ocean . In the early Paleozoic , up to 
the time of the Caledonian Orogeny , this ocean was centered 
on the North Pole . Subsequently it occupied an equatorial 
position antipodal to the Tethys sea north of Africa . At 
the end of the Mesozoic Era the center of the Pacific plate 
shifted to a position antipodal to the center of the African 
plate. The continental segments are grouped in a cluster 
which is related to the spin axis. The center of mass, C , 
is either on the South Pole , as in the Cambrian and 


Ordovician periods, or else near the equator. 
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Figure 1.19 . The motion of four continents relative to 
the present postion of Africa between 550 and O million 
years ago. An azimuthal equidistant projection is used and 
the reconstruction is based on a minimum velocity assumption 
for all continental segments. The total motion of the 
continents is approximately 90 degrees. Central North 
America and Siberia move from an equatorial postion to one 
close to the north pole. Central Africa moves from a south 
polar pestion to an equatorial one. Eastern Australia moves 
from 30 N. in the Cambrian to 60 S latitude in the Cretaceous 
as a part of Gondwana . Its subsequent motion is independent 
of that of Africa . 
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Figure 1.20 . Variation of the latitude of the mean 
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The drift of the continents in the Phanerozoic Fra is 
illustrated in figure 1.19. A graph ( Fig. 1.20 ) using data 
listed under LAT in Table 2 of the Appendix 1 shows the 
Change in latitude of the mean south paleomagnetic pole as a 
function of time. Samples from the Cambrian and Ordovician 
systems yield paleomagnetic south poles close to the present 
equator. A rapid shift in latitude occurred at the time of 
the Caledonian Orogeny which culminated toward the end of 
the Ordovician period. This was concurrent with a major 
reorganization of the continental segments and relatively 
rapid continental plate motion. The rest of the Paleozoic is 
represented by a uniform drift toward the present polar 
position accompanied by a reorganization of the continents 
into Gondwana and Laurasia . The Tethys sea closed uniformly 
from its oceanic proportions in the Lower Paleozoic . A high 
degree of symmetry occurred in the Mesozoic Era with 
Laurasia and Gondwana locked together to form the super- 
continent of Pangaea . The latitude of the pole stabilized 
near 80 degrees in terms of present day coordinates. The end 
of the Mesozoic shows a very symmetric arrangement even 
though Gondwana and lLaurasia are separating with the 
formation of a proto- Atlantic Ocean in a symmetric relation 
to the Tethys sea with respect to the map center ( Fig. 1.5 
) . In the Tertiary period the latitude in figure 1.20 
begins to shift, once again, towards 90 degrees. The 
continental arrangement has the symmetry of the present day 


with the African and the Pacific quasi-circular plates 
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separated by a ring of quasi-elliptical plates ( Fig. 1.4 ) 
- It ais significant that the variation in the latitude of 
the pole with time is not random but is a very regular and 


systematic function of time. 


The reconstruction of plate boundaries in the past 
requires further assumptions as outlined in the principles 
in the introduction . The incompleteness of paleomagnetic 
observations is compounded by the gaps in the geological 
record. However, accepting that the reconstructions have 
some validity, it is seen that the number of plates varies 
from 6 to 8 or 9 . Small plates, such as the Indian in the 
Tertiary or the Nascan at the present time, have very rapid 
motions and disappear quickly as independent entities. There 
appears to have been 7 or 8 major plates in the Lower 
Paleozoic and Cenozoic Eras . There may have been as few as 
6 in the Upper Paleozoic and Mesozoic Eras although the 
humber occupying the enlarged Pacific Ocean is speculative. 
The plate arrangement also shows a certain symmetry during 
each period. The Cambrian and Ordovician periods have an 
equatorial ring of dominantly continental plates indicating 
a close similarity to the present situation. A south oceanic 
polar plate, containing Africa lies opposite the major north 
polar oceanic plate. The arrangement on an Eckert projection 


( Fig. 1.21) should be compared to a similar one of the 


present plate system ( Fig. 1.2 ) except that the "ring" 


plates are rotated 90 degrees to the spin axis. The Upper 
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Figure 1.21 . A model of the plate tectonic pattern in 
the Cambrian period on an Eckert projection. This figure 
should be compared to the configuration at the present time 
euotigure 1.2. 
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Paleozoic and Mesozoic plate arrangement is one in which the 
continental blocks have an equatorial position opposite the 
oceanic group of plates. Following principle 9, there must 
be a spreading center in the Tethys sea which is seen to 
follow the equator. As the Tethys seaway becomes smaller 
towards the Cretaceous period the continental and plate 
arrangement acquires greater symmetry. In conclusion, the 
arrangement of plates is neither random in space or time. On 
the contrary, the plate tectonic pattern appears to have an 
evolutionary development with a time scale of several 
hundred millicn years and a high degree of spatial 
organization whose physical properties should be described 
by lew order spherical harmonics. Such an ordered kinematic 
and geometric system on the surface of the earth must be 


reflected also in the dynamic system within its interior. 


The organizaton of the lithosphere with two antipodal 
quasi-circular plates separated by a ring of quasi- 
elliptical plates at the present time was considered by 
Kanasewich (1976) to be convincing evidence for a mantle- 
wide convective system. Theoretical studies by Chandrasekhar 
(1961) investigated three-dimensional convection in 
Spherical shells of a uniform Newtonian incompressible 
fluid. A variational principle was used to determine the 


Rayleigh number for the onset of convection in ceils with 


Various sizes. Since the core is liquid with a small 


viscosity, compared to the mantle, the lower boundary 
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condition must have zero shear. stress (free-slip) . The 
boundary condition at the lithosphere-asthenosphere contact 
is more complex but it is reasonable to assume that the 
lithosphere is free to move with the underlying mantle. More 
complex and irregular plate boundaries will result because 
this condition is only approximated when considering the 
broad pattern of convective motion. With upper and lower 
boundaries being free-slir and using the present size of the 
mantle it is found that a flow generated by internal sources 
distributed as a spherical harmonic of degree three is most 
readily excited ( Rayleigh number, R = 19,000) . Those with 
degree 2 (R = 22,000) and degree 4 ( R = 21,000) are only 
Slightly larger and are probably easily excited. That with 
degree 6 has a Rayleigh number of 35,000. It has been found 
by Chamalaun and Roberts (1962) that axially symmetrical 
modes are excited more readily than unsymmetrical modes. A 
very detailed knowledge of the boundary conditions and the 
Physical properties of the mantle would be necessary to make 
a theoretical prediction of the combination of modes excited 
and maintained in the flow pattern. However it seems 
reasonable to assume that, if mantle-wide convection occurs, 


the low order spherical harmonics will have the dominant 


amplitudes. 


Two-dimensional models of convective flow can be used 


to solve more complex physical states. Thus Takeuchi and 


Sakata (1970) have made a theoretical computation on a two- 
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layered Newtonian fluid with two-dimensional rectilinear 
geometry. The boundary conditions were zero shear stress at 
the surface and a non-slipping (zero velocity) lower 
boundary which was being heated. The lower layer occuppied 
90% of the total thickness and was 1000 times more viscous 
than the upper (asthenospheric) layer. This model showed 
that there are larger horizontal velocities in the upper 
layer but that the return flow is in the lower, more 
viscous, layer. Studies by Peltier (1973 ) for heating 
distributed uniformly through a model with the same boundary 
conditions gave Similar results. Davies (1977) studied a 
model similar to the one by Takeuchi and Sakata but with 
both boundary conditions being free-slipping and there was 
no heating. The upper layer was taken to be 700 km thick and 
the lower one was 2300 km. Davies found that 5 orders of 
magnitude contaase between the viscosity in the lower and 
upper layer are necessary to exclude fiow from the more 
viscous layer. The contrast becomes even greater as the 
upper layer is made thinner. Although the models are simple 
and the boundary conditions not as complex as_ those 
encountered in the real earth, when theoretical studies have 
been carried out to include the entire mantle, the results 


indicate that the lower mantle must be involved in the 


dynamics of plate tectonics. 


Assuming mantle-wide convection, a _ series of cross 


sections have been drawn up in figure 1.22 to illustrate 
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Figure 1.22 . Cross sections of the Earth along the 
great circle path 360 - C - 180 in the azimuthal equidistant 
Peogect.ons, Of figures 141,171.24, 1.6,1.9¢ 1-12, 1. 14,1216 and 
1.18. The dimensions and directions of hypothetical mantle 
current systems are indicated. 
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hypothetical flow patterns for the 7 periods modelled with 
paleomagnetic data in figures 1.4 to 1.18. Most of the cross 
sections of the earth cut the azimuthal-equidistant 
projections along a great circle path between 360, C and 180 
in figures 1.4 to 1.18. A_ polar Grogs section ( Fig. 
1.22h,i) at any longitude for the Cambrian and Ordovician 
periods tends to show 6 cells or a convective pattern that 
can be described by a 3rd order spherical harmonic. The 
Devonian period ( Fig. 1.22g) has a 2nd order convective 
pattern which is somewhat irregular. The Ordovician pattern 
is also more irregular than the Cambrian one. Comparing the 
Devonian and Ordovician spreading centers on a Mercator 
projection (figures 1.13 and 1.15) it is seen that the 
change in convective crder is evolutionary. The Ordovician 
Tethys spreading center moved toward the equator and broke 
through between Asia and Australia to join the Pacific 
spreading center which evclved, in the Devonian, into a 
triple junction. If the Pacific oceanic sfreading centers 
were consistently more active than the Tethys one, the 
rapidly moving Kula, Farallon and Pacific plates would tend 
to concentrate the continental segments into the one large 
continent called Pangaea by Wegener . As the cross sections 
aerigure 422 (d to 4g) show, the convection pattern 
remained stable as a 2nd order system until the Cretaceous 
period. A 2nd order system is still present in the 
Cretaceous but the Tethys spreading center has decayed away 


and as seen in figures 1-5 and 1.6, a ftransition 1s 
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occurring to a new order at the beginning of the Cenozoic 
Era - This is a more complex system which tended to split 
Gondwana and Laurasia apart. The Pacific system developed a 
double triple junction (« Fig. 1.6) with the four oceanic 
plates of Pacific, Kula, Farallon, and Phoenix . In the 
Tertiary period (figure 1.4) the spreading center between 
the Phoenix and Farallon plates began to dominate so that 
the Kula and Farallon plates were subducted out of existence 
underneath Asia and North America . The North Atlantic 
ridge, which first appeared in the Jurassic period, also 
became dominant and a spreading center formed three-quarters 
of the way around Africa . The Tertiary spreading centers, 
like the present ones, are complex, involving many axially 
symmetric modes of low crder spherical harmonics. But the 
3rd and 11st orders predominate. This produces two main 
spreading centers which drive the Pacific and African plates 
in a northward direction ( Fig. 1.22a,b )- The two cells 
have very different velocities and are decoupled by a ring 
of plates and minor spreading centers. These show the third 
order pattern more clearly ( Fig. 1.22c) if another cross 


section is made through the "ring" perpendicular to the one 


in figure 1.22b. 
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CHAPTER 2 


REVIEW OF SEISMIC EVIDENCE FOR LATERAL INHOMOGENEITIES IN 


THE MANTLE 


Over the last ten years lateral inhomogeneities in the 
mantle have received increased attention. There are several 
reasons. The increased quality of seismic data with the 
introduction of the seismic array and the World Wide 
Standard Seismic Network (WWSSN) has refined the spherically 
symmetric average earth models, with the result that the 
deviations from these models have become more evident. Also 
the theory of plate tectonics and the continuing debate 
about whole mantle convection has focused attention on 
possible lateral inhomogeneities in the mantle. This review 
attempts to present the most important seismic methods for 
detection of lateral inhomogeneities in the mantle, and 
Specifically in the deeper mantle. The much studied subject 
of crust and upper mantle inhomogeneities, particular those 
related to plate boundaries will not get much attention, 
since acceptable models already exist. Different methods of 
studying the seismic data and some of the results are 


examined. A summary of the evidence for lateral 


inhomogeneities is given in table 2.1. 
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TRAVEL TIMES 


Travel times of seismic phases, especially for the P 
and S phases, have heen the tool most often used for 
determining mantle structure. Other seismic phases have been 
used in more specific studies, for example PcP travel times 


are used to determine the radius of the core. 


A travel time residual, Tres, can be written as 


Tres =T- CeAt+E*R+t*S¢+M (254) 
Ys The observed travel time. 
Ce The calculated travel time as a function of distance 


and focal depth for a radially homogenous earth. 

As Correction for the station altitude above sea level. 

Bs Correction for earth ellipticity, usually corrected 
as suggested by Bullen (1965). 

Re Station regional correction which can be written 
k = A+ B sin (Az+tD) (2-2) 
A, B and D are constants for a certain station and 
Az is the azimuth measured from the station towards 
the event. A is the azimuth independent correction 
and B and EF the azimuth dependent terms. Herrin and 
Taggart (1968) have tabulated A, B, and D for a 
large number of stations in the WWSSN network. The 
corrections clearly show the existence of regional 
lateral inhomogeneities in the crust and uppermost 


mantle. 


S: Since earthquakes occur in tectonically active areas 
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with large inhomogeneities, source related travel 
time anomalies, S, are to be expected. Attempts have 
been made to make general corrections, as expressed 
in 2.2, (Herrin and Taggart (1968a)) or corrections 
are calculated for special Poe (Engdahl and 
Johnson (1974)). Most results are not corrected for 
source effects and source related anomalies are 
often used as evidence for lateral inhomogeneities 
in the source region either close to the source 
(Engdahl and Johnson (1968), Jacob (1972)) or well 
below the source (Engdahl (1975)). 

fe Errors which arise from event mislocation, Or 


mistakes in determining the event origin time. 


From this discussion of the terms in (2.1) it is seen 
that residuals can have several explanations. Several 
methods are discussed below for identifying residuals due to 


the deeper part of the ray path. 


Comparison of travel time curves. 


— =m a > ae a> Se ae GD E> eee a eee Ga a ae GS em ae ae Se ee ee ee 


Travel time anomalies, Tres, plotted against epicentral 
distance, del, will often show a systematic variation 
indicating that anomalies are not random. An improvement of 
the results can be obtained by using only deep earthquakes 
(h > 500 km) thus eliminating or reducing source anomalies. 
Such a study was made by Julian and Sengupta (1973) who also 


used regional station corrections R. The conclusion of that 


66 


. a j wi ‘ ahi \ AG oe 
i | . Van 
, . : i 3 « » 7 I 
; bake 
7 2 i 


sonia? vente pace. jena Repo 
dyad fagaina th, iba toon a ad om oe 

yoke 
bacapudhe a Aeris sale nea Mk: 


Bay 


Sak Laeopese: ae we Letowys oe 
yh? OH8saesaGo tom Hes eFivras reat (BO 
@ Sea i agore | hosyee sy sox oe toe " 
rar seadanodotit, Larsrsh Toh Ps es bs ans oe 
wesuda €ns. oF SeORhO) aia te nokeoe, pry 
ish. 40 CNR TOT), CUR A LBeED. cenaen pig! | 

Laren) Sh SHORE: shite ais ae 


A me ai ¥ 
19 voitsonkets ) SHOR) 20Ge ogbak’: baviiciiuh 20788 |) 


} ok 


sare Gipiae) tEsve cas veg ike ae an 


“A 


Rage ak. 2h Of ay. 08) STA? Aid BO ws eaeoca a 


"y 
a ‘ 
i 


Rae ve ehoisetsds xe Lotanga apart rr eas: 


ii pt) 


oo} ead ahetiizess pabyrcdiens ‘ton oie he ogee 
gee res) one 1 se al 


citer ashe iim “malta. ‘ane 
ae 


sodinupdtips apae wo PAB Hes 008. seen — hin 
post ssont goatee perapbe a wee ma , i) cae te 


pOneN S| ear my 
oa. 7} ae tb rety “atlenoe ‘bas ti Leva et | a8. 
ci ARP ha ; pit vi im: - 


ae an Bie we 
‘) 7 a Oh oe ah +] 
Ce ane 


Y ; - oe ; yt ery, 


ee ; Nt Pre wae. er aay i 


wl 


sw To ne seiub gna gat off aaob see? 
“ei iar @ . . ee 


Study was that the majority of lateral anomalies are below 
2000 kms depth, as the travel time curves show much 
difference from region to region for del > 85 degrees. A 
large part of the deeper mantle was mapped as being either 
Slow or fast relative to the J-B tables (Jeffreys and Bullen 
(1967)). Size of the anomalies was 1000 km or less. The 
approximate region of anomaly was arbitrarily defined to be 
that part of the ray covering the central 30° of the ray 
path. This is a reasonable assumption since 25% of the 
travel time is spent in the lower 10% of the ray path. A 
Similar study was made by Au (1977) suggesting the existence 
of relative low velocity regione in the lower mantle under 


the Indian Ocean and the Himalayan mountains. 


s-wave residuals _as_a function of azimuth 


As mentioned earlier, the systematic variation of Tres 
with azimuth is usually interpreted as due to velocity 
anomalies in the upper mantle. Herrin and Taggart (1968) did 
not interpret their results in terms of velocity anomalies 
at any particular depth, but it is possible to make use of 
their tabulations to do so. An analysis was made by Brown 
(1973) for the stations in the Scandinavian network. It 


appears that seismic waves travel faster for paths which 


approach Scandinavia frem the north than from the south. 


Several possible models were tried to explain the anomalies 
and the conclusion reached was that because of the extensive 


area showing the ancmaly, the most likely explanation would 
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be a dipping structure under Scandinavia at depths of 600 to 


700 km. 


inversion of travel time curves in terms of velocity 


several inversions using the Herglotz - Wiechert method 
have been presented using paths of world-wide data. If 
enough data is present it is possible to compare velocity 
models calculated from data from different regions. Niazi 
(1973) made such a study using S-waves and showed that below 
2500 kms depth the mantle beneath Iceland and the North Pole 
differed significantly, the S-wave velocity being highest 
Close to fIceland. This can possibly be correlated to 


Morgan's (1972) suggestion of a hotspot under Iceland. 


Inversion__of __travel_ time residuals__in_ terms of velocity 


> Gee ee oe ee oe ee ee ee GS ee SS SS OO SS SS ee 2D SS SSS Se 


Two global inversions have been reported in the 
literature. Sengupta and Toksoz (1976) used 1490 P and PcP 
and 314 S and ScS travel times from deep events. The data 
were first fitted to an average radial velocity model. Then 
the anomalies for each station were averaged and used to 
correct the individual travel times. The remaining travel 
time anomalies were fitted through constant perturbations in 


3-dimensional blocks of size 10 deg. in latitude, 10 deg. in 


longitude and 500 kms in depth. A method of successive 


approximations was used (Aki et al (1974)), which Sengupta 
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and Toksoz describe as follows. The r'th approximation of 
the velocity perturbation for the mth block (= pr pris 
given by the weighted least squares solution to the systen 
of n linear equations of the forn 

ag + G5 = Rim * Pes (2. 3) 
A summation convention is assumed to apply to subscripts in 


equation (2.3). The number of rays passing through the am'th 


block is n, T.. is the observed travel time anomaly for the 


1j 
ifth earthquake and j'th station; oF is the Etch 
approximation of the correction to T | from the perturbation 


15 
of velocity in the remaining blocks and ie is the r'th 


approximation of the travel time in the m*th block 
corresponding to ses Strictly speaking, as Sengupta and 
Toksoz state, the problem is undetermined. However by using 
different sequences of sampling the blocks, some consistent 
results emerged. Lateral inhomogeneities were most prominent 
in the upper mantle and near the core-mantle boundary. The 
velocity perturbations were mapped for depths of 0-500 km 
and for 2500 km - 2900 km. The upper mantle anomalies 


corresponds well with surface features (high velocity under 


continents, low under oceans), while the lower mantle 


anomalies do not. 


A similar, but much more extensive study was made by 


Dziewonski et al (1977). About 700000 arrival times were 


selected from the Bulletin of the International 


Seismological Center. Only the best data was used and only 


events with more than 100 stations reporting were selected. 
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Residuals were calculated relative to velocity model PEM-c 
(Dziewonski et al (1975)). Regional station corrections were 
applied as described in equation 2.2 and the resulting 
residuals inverted in terms of velocity perturbations. The 
block size was 36 deg. latitude, 60 eee longitude and the 
separation in depth at 0 - 670 - 1100 - 1500 = 2200 kms and 
the core-mantle boundary. The resulting perturbations in 
velocity were much smaller (0.5%) than those found by 
Sengupta and Toksoz (2%). This is probabiy due to the larger 
block size. The velocity perturbations were analyzed using 
spherical harmonic analysis for the 5 different depths 
regions. Results above 1500 kms depth were unstable 
indicating that the anomalies have dimensions smaller than 
the grid size. For the deeper mantle consistent results were 
Obtained. No correlation with surface features was found but 
a correlation exists between large wavelength gravity 
anomalies, as observed at the surface, and those computed 


from velocity anomalies at depths greater than 1100 kn. 


In the study of lower mantle inhomogeneities the 
differential travel time cf the phases PcP-P and ScS-S are 
especially useful since the ray paths are nearly identical 
in the upper mantle. It is seen in figure 2.1 that in the 
upper mantle the ray paths are very close for S and ScS or P 
and PcP. That is especially true for longer distances, (del 


> 50 degrees). Differential travel times reduce or eliminate 


errors in hypocenter and epicenter location, absolute time 


determination, event origin time and station anomalies. An 
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Figure 2.1 


ScS and S rays in the distance range 40 to 80 degrees. 


The 


numbers to the left are distances in km from the earths 


center. 
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anomaly in the differential travel time must then be located 
either along the S or ScS ray path below a depth where the 
two ray paths diverge a distance of at least one wavelength 
( 10C km for a velocity of 5 km/s and a frequency of 0.05 
HZ). For instance at an epicentral distance of 50 degrees 
the two rays separate about 200 km at depths of 500 km while 
at a distance of 70 degrees the same separation occurs at 
about 1000 km. So it is an advantage to use as large 
distances as possible, but the values much beyond 80 degrees 
are not practical as ScS arrives very close in time to Ss . 


The same arguments are true for PcP and P. 


Hales and Roberts (1970) used ScS-S travel times to 
estimate the radius of the core. On plotting the ScS-S 
travel times residuals versus epicentral distance in the 
range 48 to 70 degrees it was noted that substantial scatter 
existed. Scatter as large as up to 8 seconds were noted, and 
Hales and Roberts suggested the existence of lateral 
inhomogeneities in the lower mantle, or alternatively bumps 
on the core-gantle boundary. Several studies (e.g. Engdahl 
and Jchnson (1974), Buchbinder (1968)) using arrivals 
reflected off and within the core have shown that bumps on 
the core-mantle boundary cannot be larger than 5-10 km. This 
is not enough to explain the large scatter (Vs = 7.3 km/s, 


time scatter = 2*10/7.3 sec = 2.7 sec), so the suggestion 


about lateral inhomogeneities seems reasonable. 


Mitchell and Helmberger (1973) used a much larger set 
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of long period ScS-S travel times in a study of the 5 
velocities near the core-mantle boundary. They hoped that by 
using long period S waves (periods of 20s) the effect of 
lateral inhomogeneities could be minimized. The average ScS- 
S residuals from events in South Rae cn and the Sea of 
Okhotsk were quite different. This was interpreted in terms 
of lateral differences at the base of the mantle. Buchbinder 
and Popinet (1973) used short period PcP-P travel times and 
PcP amplitudes in a study of the core-mantle boundary. They 
found a distance independent scatter in the PcP-P travel 
times (t 2.5 sec.) and noted that this probably was due to 


lateral inhomogeneities in the lower mantle. 


The studies mentioned so far did not use PcP-P or ScS-S 
travel times with the express purpose of studying lower 
Mantle inhomogeneities, but the possibility was shown, and 
several studies followed using differential travel times for 
that purpose. Jordan and Lynn (1974) and Jordan (1975) used 
a set of PcP-P and ScS-S travel times with events from South 
America as recorded in North America. By correlating the 
ScS-S residuals with S residuals, they were able to show the 
existence of a high velccity region in the lower mantle 
below the Caribbean. Sipkin and Jordan (1975) studied world 
wide ScS-S travel times to show that the difference between 
Oceanic and continental areas extends to a depth of 400 km. 


A similar study was done by Baumgardt (1976) using PcP-P 


travel times, and he, like Sipkin and Jordan, found that 


velocities under continents are higher than under oceans. 
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Figure 2.2 
The ScS and double reflected ScS2 rays. The numbers 


left are distances in km from the earths center. 
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Okal and Anderson (1975) criticize the work of Sipkin and 
Jordan arguing that the only 4 stations used to represent 
oceanic lithosphere are on oceanic islands less than 30 
million years old, and are not a very typical representation 
of oceanic lithosphere. To overcome this problem Okal and 
Anderson used multiple ScS phases, that is, S waves 
reflected off the core and surface of the earth several 
times. For instance by taking the Rie rorence in travel time 
between the once core reflected ScS and the twice core 
reflected ScS2 phase (see fig 2.2), station and source 
anomalies are eliminated and gross anomalies must be along 
the surface reflected ray A-B-C. By choosing rays having 
reflection point B under "normal" Pacific crust, the problen 
of having rays sampling the crust-mantle under anomalous 
oceanic islands should be avoided. Okal and Anderson clain 
that an anomaly in the differential travel time ScS2-Scs 
will be an indication of an anomaly in the upper part of the 
Tay A-B-C. Clearly this interpretation is not unique and it 
seems likely that any part of the ray A-B-C could pass 
through the anomaly. Nevertheless, their results seem to 
indicate that the majority of inhomogeneities are found in 
the upper 200 km of the mantle. The one way travel time 


residuals in ray A-B vary from +5 over oceans to -3.5 


seconds over continents and Okal and Anderson could show 


that there was a correlation between the size of the anomaly 
and the age of the plate. Younger parts of a plate (near 


tidgesy have a more developed low velocity zone and thus 
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larger one way S-travel times, while the Opposite is the 
case for the older parts of the plate. By comparing possible 
models with the travel time residuals, Okal and Anderson 
concluded, that their observations could be explained by 93a 


dateral changing velocity in the upper 200 km of the mantle. 


Sipkin and Jordan (1976) also used multiple ScS phases 
and thereby confirmed their results from 1975, Spies 
Claiming that ocean continent differences extends to depths 


exceeding 400 kn. 


The very special differential travel time ScS-P is used 
by Choudhury et al (1975) in a study of events from the 
South Pacific, recorded in Antartica. In the distance range 
used (50-60 degrees), the ScS and P travel time curves have 
almost identical slope, making ScS-P times distance 
independent and thus eliminating errors arising from 
epicenter mislccations. On the other hand, ScS-P times are 
very sensitive to the depth of the earthquake and Choudhury 
et al use the ScS-P times to show the existence of lateral 


inhomogeneities in the source region. 


Fngdahl (1975) studied deep focus events from Fut tian 
Tonga as recorded at Alaskan stations. He calculated the 
difference in P travel times for two groups of stations, 
thereby eliminating errors due to event mislocation, near 
source inhomogeneities and wrong origin time. A large number 
of such differential travel times for different eventS were 


determined, and it became clear that the residuals differed 
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from events in the northern and southern Legionecor SFijiss- 
Tongae Because of the proximity of the two groups of 
recording stations it was concluded that the difference in 
travel time most likely originated close to the earthquakes. 
Johnson showed that in the Fiji-Tonga region, there must be 
lateral differences in the mantle below a depth of 700 km 
depth, that is} lower than plates, as defined by 
earthquakes, are depicted. This could be an indication that 
plates are sinking well below the depth of the deepest 


earthquake. 


Since the introduction of the seismic array some of the 
problems related to travel time studies have been avoided. 
The array samples the wave front at several spatial 
locations and it is thus possibe to directly determine the 
Slowness, p = d@f/ddel, by measuring the time difference in 
arrival time , aT, between sensors separated by ddel. The 
Slowness can also be measured as the slope of a travei time 
curve, but errors in event location and origin time will 
then affect the value of pf. An additional parameter measured 
by the array is the azimuth, Az, Or the direction from which 
the waves arrive. The ray parameter can then be represented 
as a vector, p, with magnitude , p, and direction determined 
by Az. The azimuth measurement is very useful since 
deviations of the ray path from a great circle path indicate 


that lateral inhomogeneities exist somewhere along the ray. 
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Also the measurement of p is important since a small 
velocity anomaly can affect the value of p quite 
significantly without giving a travel time anomaly. 
Furthermore p is very sensitive to the velocity, v, at the 
bottom of the ray path where p = r/fv, r being the distance 


from the center of the earth to the bottom point of the ray. 


interpretation of anomalous p-Az values: An anomaly in p or 
AZ can have its origin anywhere along the ray path, so, as 
in travel time studies, some method must be used to estimate 
where the anomaly is located. A lateral inhomogeneity in the 
crust under the array can severely change the observed value 
of p-Az by intreducing different delays in the travel time 
to the different sensors. A large scale inhomogeneity, 
larger than the array aperture, will give consistent changes 
in p-Az for measurement from different events, and can 
therefore be corrected. Medium scale inhomogeneities 
(Similar in size to the array aperture), will give 
fluctuating anomalies in p-Az for different events and 
correction is difficult. Small scale anomalies will appear 
aS random noise in an array with many detectors and may 
cancel out or be treated by time sequence analysis. Similar 
structural inhomogenieties at *the source will affect the 


Observed values of p-Az much less than at the receiver. 


Since the ray bundle arriving at the array only spreads out 


100-200 km, the individual rays at the source side will be 


very close together, and thus get about the same time delay 
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from any small scale anomalies there. Larger scale anomalies 
at the source can change the direction of the whole ray 
bundle, but from fig 2.3 it is seen that the effect is small 
at the receiver side. Davies and Sheppard (1972) estimated 
that the maximum error in p and Az to be expected from 


source anomalies would be 3% and 2 degrees respectively. 


=residuals: A large number of studies using the ray 
parameter have the objective of determining pas a function 
of distance since this relationship is used in the Herglotz 
- Wiechert inversion to calculate velocities in the earth. 
As a by-product of these studies, lateral inhomogeneities 
are often suggested to explain discrepancies between 
different studies, or differences between velocity models 
from different regions. Toksoz et al (1967) made a global 
study of inhomogeneities in the mantle using p values from 
LASA. On plotting p versus del for results coming from 2 
different directions (Az = 140 and 310 degrees) it was found 
that the curves differed significantly in the distance range 
65-87 degrees. Toksoz et al argued, that since the angle of 
incidence for the rays to LASA, in that distance range, only 
changes 6 degrees, this difference could not be a receiver 
effect and the most likely explanation would be a lateral 
difference in the velocity gradient at depths 1800-2600 km. 


This interpretation is made under the the assumption that 


the lateral difference is located at the deepest point of 


the ray. Chinnery (1969) used p data and travel times from 
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Figure 2.3 

An azimuthal anomaly as seen by the array. The anomalous 
velocity gradient is located at C and it causes an azimuthal 
anomaly, angle A, as seen by the reciever and angle B at the 
source. If source and reciever were interchanged it is seen 
that the azimuthal deviation as observed by the receiver 
would be considerabie less than in the first case. In 
general the observed azimuthal deviation for the same 


velocity anomaly decreases with the distance to the anomaly. 
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LASA, and alsc found inconsistent results for distances 
greater than 80 degrees. He also suggested lateral 
inhomogeneities in the deeper mantle as an explanation. 
Johnson (1967, 1969) inverted a large set of p observation 
into velocity models for the mantle. Comparing his results 
for the lower mantle with results from other studies he 
found different velocities at the same depth and therefore 
Suggested that the lower mantle varied laterally. Several 
other studies using comparable techniques obtained similar 


results. 


A common feature of many array studies is that the major 
objective is to get a slowness-distance curve so azimuth 
anomalies are not interpreted. With the accumulating 
evidence for ilateral inhomogeneities in the mantle nore 
attention has been given to the measurement of azimuth. 
Davies and Sheppard (1972) used the LASA array for a global 
study yielding both p and Az, which were combined into a 
vector p. They plotted the vector residual between the 
observed and calculated p-vector in an array diagram, (see 
fig 2.4). At a glance it is possible to see from which ray 
path the anomaly originate, and also the direction and 
Magnitude of the anomaly. Davies and Sheppard found that 
part of the anomalies could be ascribed to crustal variation 
under the array but several variations in the p-Az anomalies 
were fluctuating too fast with Az to be a station anomaly. 


It was concluded that lateral inhomogeneities probably can 
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Figure 2.4 

An example of an array diagram. The figure is from Davies 
and Sheppard (1972) showing results from the LASA array. The 
outer circle represents a slowness value of 10 sec/deg while 
the inner circles are at 7.5, 5.0 and 4.0 sec/deg. 
Directions north (N), south (S), east (E) and west (W) are 


as seen from the center of the array. 
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be found at all levels of the mantle and only some of them 
are related to surface feature like hot spots and subduction 
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Wiechert (1972) found azinuth anomalies fOr: (rays 
arriving at the Yellowknife array and bottoming under the 
Aleutians. TO exclude structure near the array, as 
responsible for the anomalies, Wiechert looked at the p-Az 
anomalies at subarrays and found the same variation in the 
p-Az deviations, as using the whole array. Comparison of his 
Observations with array measurements elsewhere showed 
Similar results for rays bottoming in the same region, but 
having different origin. Source anomalies could therefore be 
excluded and Wiechert concluded that most likely lateral 
inhomogeneities exists near the bottoming points of the 


rays. Several other similar studies are mentioned in table 


2.1. 


The seismic array can be used to locate earthquakes, 
The epicenter can be located using the measured azimuth and 
a distance obtained from a p versus distance table. This 
method is not very accurate, since small scale 
inhomogeneities can give significant anomalies in p and Az 
and thus giving a mislocation the event. Knowing where the 
event is from conventional travel time determination, it is 
possible to use the anomalous array mislocation. Powell 
(1976) study patterns of mislocations for several deep 


events, using 3 seismic arrays, and interpreted the results 
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in terms of heterogeneities below the subduction zones at 
depths of at least 650 or 800 km. Kanasewich et al (1972, 
1973) used the VASA and PEACE arrays for measuring p-Az rays 
bottoming in the deeper mantle at points having a surface 
projection at or close to Hawaii. Low values of p were found 
for these rays compared to rays from other parts of the 
world to VASA. Because of the consistency of results from 
the two arrays and from several different events, source 
anomalies were ruled out. Since the p measurements for other 
ray paths did not produce any large anomalies no significant 
station anomaly was expected. The low p values for rays 
under Hawaii were then ascribed to a velocity anomaly at the 
deepest point of the ray, where p = T/v, and thus 
interpreted in terms of a high velocity anomaly at depths 
between the core-mantle boundary and 500 km above. 
Kanasewich and Gutowski (1975) confirmed previous results by 
using the LASA and VASA array and making more use of the 
azimuth anomalies. The hcrizontal dimension of the high 


velocity region could be limited to 150 kn. 


Wright (1975) criticized Kanasewich et al's 
interpretation of the p-Az data and argued that anomalies, 
such as observed for the rays under Hawaii, are often seen 
Without having any correlation with deeper mantle 
inhomogeneities. Also, the velocity anomaly does not have to 
be at the deepest point of the ray, but could originate 
somewhere between Hawaii and North America. Wright (1975, 


1973) presented data from the Yellowknife array using rays 
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which bottom just north of the area sampled by Kanasewich et 
al, and found no anomaly. Wright also claimed that the 
argument for ruling out anomalies under VASA is not valid, 
Since the UK tyfe arrays show similar anomalies in p-Az 
arising from crustal structure under the array. Kanasewich 
et al (1975b) replied that these comparable anomalies were 
measured with smali arrays which are much more sensitive to 
crustal variaticns, and that nc comparable crust related 
fluctuations in p-Az have been found at the large aperture 
VASA array. Okal and Kuster (1975) used a 50 km aperture 
array on two island groups in French Polynesia and showed 
that large anomalies in p-Az could be found for rays 
bottoming under Hawaii if individual island arrays were 
used. However combining the two subsets into an oblong 
array, 350 km in lengh, the anomalies were found to cancel. 
They used this as an argument against the interpretation by 
Kanasewich et al, but according to their fig 4, only 4 rays 
in the vicinity of Hawaii were used, and it is difficult to 
see exactly where the rays bottom relative to the data given 
by Kanasewich et al. More questionable is their combination 
into an odd shaped array of seismic structures from two 
groups of Pacific Islands. Berteusson (1975) made a similar 
study with the LASA array and concludes that the LASA array 
is not big enough (similar in size to the VASA array), to 


rule out the effects of local snall scale lateral 


inhomogeneities, and thus the Hawaii anomalies seen with 


VASA were probably generated under the array. 
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The previous discussion shows how ambiguous the 
interpretation of p-Az data is and additional information 
must be obtained somewhere. In the case of Hawaii additional 
information comes from a study by Best et al (1974). They 
used travel times of ScS3 with both earthquake and receiver 
on Hawaii, thus sampling only the mantle directly below 
Hawaii. Their results showed the two-way travel time was 
faster than normal, the anomaly being 0.7 sec. for a J-B 
modei and 5.3 sec. for the Jordan model B1. So somewhere 
between the surface and the core-mantle boundary there is 
material with relatively high velocity and the 


interpretation by Kanasewich et al cannot be discarded. 


P-waves diffracted around the core sample a large area 
of the core-mantle boundary. Alexander and Phinney (1966) 
and Phinney and Alexander (1968) used ratios of spectral 
amplitudes of diffracted P-waves around the core-mantle 
boundary and could thereby calculate the attenuation at the 
core-mantle boundary as a function of frequency. They found 
Signficant differences in attenuation for different regions, 
and in general, a difference between the core-mantle 
boundary under the Central Pacific and the Africa - North 
Atlantic area. Needham and Davies (1973) made an amplitude 
study of diffracted P-waves recorded at LASA and station 
BMO. They found significant differences in amplitude for 
and could show that lateral inhomogeneities 


different rays 


in the lowest 100 km of the mantle would most easily explain 
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the observations. Sacks and Snoke (1976) used amplitudes of 
core phases having near-grazing incidence at the core-mantle 
boundary (and thus high sensitivity to anomalies on the 
core-mantle boundary) and compared them with near vertical 
incident phases (low sensitivity to core-mantle boundary 
anomalies). The data was interpreted in terms of lateral 


inhomogeneities close to the core-mantle boundary. 


Several studies have shown the possibility of 
scattering of short period P-waves at all levels in the 
mantle. Doornbos (1976) analyzed precursors to PKP at the 
NORSAR array. Combination of measurement of p, Az, travel 
times and spectral ratios of PKP and its precursors were 
most easily interpreted in terms of scattering in the lower 
mantle. Scale length of anomalies was thought to be 10-30 
km. Wright (1975) also studied the precursor to PKP at the 
Yellowknife array and gets similar results. Husebye and King 
(1976) used precursors tc PKIKP recorded at NORSAR and also 
show that they originate by a scattering process close to 


the core-mantle boundary. 


A broad study by Toksoz et al (1969) made use of 
Spherical harmonic analysis of various geophysical data such 
as seismic travel time residuals, heat flow, crustal 
thickness, and surface topography. The amount of correiation 
between the different geophysical parameters was calculated 
and it was found that at long wavelengths (n<6) 


gravitational, heat flow and seismic travel time variations 
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were not correlated with topography. It was also found that 
gravity and seismic travel time anomalies could not be 
compensated for in the ‘crust and therefore large scale 
mantle inhomogeneities would have to exist. Dziewonski et al 
(1975) inverted free oscillation data, P-wave travel times 
and surface wave dispersion data in terms of velocities. 
Continent - ocean differences were found to exist to a deph 
of 400 km. Below that deph no velocity anomalies were found 
greater than 0.2% for P and 0.4% for S. These values 
correspond well with a more comprehensive global study by 


Dziewonski (1977) which was discussed previously. 


Despite much ambiguity in the interpretation of seismic 
Observations there is no doubt that lateral inhomogeneities 
do exist at all levels in the mantle. A froblem exists with 
determining the exact lccation and the size and magnitude of 
the anomalies. The size seems to vary from 10 to several 
thousand kilometers and the magnitude of the anomalies is in 
general, larger for small scale anomalies than for larger 
ones. The maximum deviation reported is 10% in velocity. 
Most inhomogeneities seem to be located either in the upper 


mantle or in the lowest few hundred kilometers of the 


mantle, 
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Table 2.1 


References to lateral inhomogeneities in the mantle. Depth 
and size is in kilometers, and magnitude is percentage of 

velocity, or the change in velocity in km/s, where P and S 
means P and S velocity respectively. The abbreviations are: 


p: The ray parameter; 


del; Epicentral distance; 


Az: Azimuth; 


CNB: The core mantle boundary; h: Depth; har. ane: harmonic 
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CHAPTER 3 


SEISMIC DATA PROCESSING 


Methods selected for this study: 


Se ee ee a ee ee ee a ee es ee es es ee ee Se ee 


From the previous discussion of ways to detect lateral 
inhomogeneities, two techniques seem specially suitable. One 
is the use of differential travel times, PcP-P and ScS-S, 
and the other measurement of the seismic ray parameter. 
Since inhomogeneites of any dimension are to be expected, 
Short period data will be preferred to avoid averaging out 
smaller scale anomalies. Specifically the short period ScS-S 
residuals will be Pare ieeeas since other studies have 


used only long period ScS-S. 


The parameters p-Az will be measured for both P and PcP 
phases. By subtracting the p-Az values of P from those of 
PcP, it is hoped that these differential values will have a 
reduced bias due to source and station heterogeneities in 
much the same way as the differential travel times. 
Furthermore, whenever possible, a combination of travel time 
residuals and p-Az residuals will he used, thus hopefully 


eliminating some of the ambiguities in interpretation. 
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The main source of travel time data was from 
earthquakes recorded with the WWSSN and Canadian network. 
Seismogram copies on microfilm from these stations were 
obtained from the World Data Center, National Oceanic and 
Atmospheric Administration, Boulder Colorado. A minor source 
Was seismograms from the Edmonton station EDM, and digital 
recordings from the VASA array. Array data was exclusively 
from the VASA array from its operation in 1970 and 1974. All 
the data was for events in South and Central America as 
recorded in Ncrth America. Thus the projection of all the 
rays intersect in the vicinity the Caribbean and Central 
America. The reason for choosing this area is that North 
America has a dense network of seismic stations, and there 
are many earthquakes within an epicentral distance of 80° in 
South and Central America. The Caribbean is also 
tectonically complicated with some evidence for mantle 
inhomogeneities thus making it interesting to study. The 
theoretical travel times were calculated using the J-B 
seismological tables (Jeffreys and Bullen (1967)). 
Corrections were made for station elevation and ellipticity, 
the latter calculated using the Bullen (1965) formulation. 


Travel times for 18 phases were calculated for each event 


Station combination. For some of the phases travel time 


tables had to be constructed. For instance for the multiple 


reflection ScS2, travel times were derived from the ScS 


travel times. Also a routine had to be written Lor 


93 


a eae ee lov 6°23 ee yeaa. 

P , / - 2 7 5 20% i Or ty Lm, ' 

> for% & By mart ell i - a 
: . oe — bd EP ~ of z ds ae he hivos2 2s A 8 

"7 ae Ls f i 7 e J ; ¥, Crt ; ae J Tu a L i ? 

_ } . me , +d Ne 4 ie _ aD m 
tPloto Ee ac . mekADD | as 


Fr , } x 
} ah Pee ‘ee pe. 
rebhe ek “to q%) eG bLzoW ony: 92 : ain } 
se me + 
: ‘Af reg |. ior FSSBwsTRK p aD A a on \ 
-~ ~ ‘ uid ’ “at ag ; 
242% GOxh ees2 . 
) 1 i. Ae a 
! s : rig ASA . it? alain 
‘ he a is Es A’ aid i ae 
*. Oe) yt . f 
p ehnayert g0Rr 
d 2 \ Y 
, L 
: ib 
Ot F Ge r wis Lee s° ‘bes , a 
4 ! 
, eh 
At ; i AM ede = FUG ak: joo 
she @ 
‘ * eu tous 103 Cow shies 
i . i cf i % re ’ F oo 
id tsa. a ?. ie. Peis 
a ; ’ ‘ sn 5 
: t ty " 
> ; ; po | ) ond & ia P t rnd i wW a a a be 34 
i i } rf ® + La 3 
§ Pa ad \ 
‘ aes iy Ne ty feéwo orth 
1ivuse 3O% . coRebiwe Sage  AIEW Pea mph PT 
a ' ue 
i’ whose o> Ont eeeweroh) ae RaLAee dl fa a 
: 7 7 ; it ° , : My a) ne 
y 4 yr 
i. an siten box olentlas . si | send leet 


po) Se 


bre oud dnd zs hae a ; 


Caet 1s Lisa f aie Ranh a: Seb) 


. | A eae ae Oe ane e vii 
tq Ee BAe ie Saveie nods eae, apt whee toa i 
7 , a le mae BB 
prs inetd “(eae gel tines pink sifyhateiekes be 
, ‘ sie de tl bee ae w 
- Hiyiawo 49 Tr 32 Here LOD, BY ie aaa, AT pRB 
. q oy a) i " Bey 


eh 
i 


(hy foeare wpe eae. ails te } ston! ie : 
eae . i) 


| 4 
is oD Be #o7%: pawhagb 


go2 se2tiaw 
é 


calculating ellipticity corrections for phases such as PoP2, 
which are not in Bullents tables. aA program originally 
written by Dr. E.R. Kanasewich calculating travel times, 
distances and azimuths was extended to incorporate any 
combination of phases, stations and events. The input 
parameters only required the phase name, the station 
identifier and an assigned event identifier. The travel time 
tables and the station and event parameters are contained in 
separate files. All the output from the algorithm was 
printed on library cards, which are stored together with the 
corresponding seismograms on microfilm. Thus all the 
relevant information about any earthquake = station 
combination was available together with the seismograms on 
hand. An example of the two output cards is shown in table 


3-1 and fig 3.1 shows scme of the phases for which travel 


times were calculated. 


About 3500 six ccmponent seismograms were searched for 
mie, phases “ScS; ScS2° PePs and ,.PcP2. “Withi®the aid of 
theoretical arrival times for all phases which are expected 
to have easily detectable amplitudes the phases were 
identified or rejected if no reliable identification could 
be made. Only high quality arrivals with a clear onset were 
used. If a core reflected phase was identified both the 
direct and reflected phase (for example S and ScS) were read 
on all seismograms if possible. Also the differential travel 
time from peak to peak was read, if the corresponding peaks 


could be identified. Finally the P arrival time on the short 


94 


SA {38 bove 2oasdg 409 an gktaorsen, wer: 
yi ‘gals Asapota. A ,«eedde? ae bo 


QuLseey es ret soeroanill oy 
an hop. 


3 ot Aebaedae, ep eesoeine bas 7 


(ar 4s 


~7aabd Lope 


ys steuggiss 


eat .ctaeve BHA  eaontesé eset “ho co 


7U +7 ¢ * 
rh ih ee 
~itets d43 ote eeetg (e8t soaunper xine 7 
“ie v 
= yg 
swig Levers eat .tebTasziand Feove panphaes ie. bas; 
aay ; 


vv 


ty FBV S Ape. 4 ankesa oot 


i; Meakat wad Stp sissee ns 


46M watmois séF mod Ua Le ode foe 
nit doey yotteted betete 8th ik dv yabsao xara 


i th sh ot we m+ , 
iy ai 4a ) 
ay a Aro , 


sie ibe avd?  <e£fs020Le xe aeszponates eS aS 

2 - aesupst uae ys wea “qaltarsotad ey 
| a ae ie 

ait arke redeyor elupilave mene Hy 


a pe’, 


xwota sk abxeo sag? he ow? ont 20 eae 2 sh 


a 


Ao BeetTuSsetes 


Silas? . as 


tovea? doriw. 3,0d asentby Oi? 19 ance awote a “phe S ae 
ay es ~ aL) 
ofa eke oleo saa ge 

4 Leese 


oh! 
ae 


iT ¥ ry 4 
sot bedsissa Seem, eampop erode), TIAQO ee Lim OCR, Fam 


Vigna - % 


a>: gee . SRE bore Bel | Saee, (are _—— fe 


Q £4 os 
2) 


Loyrsegss' 926 dobaw eon cdg. LLe tot 2oee? beve 340 Lange 
ye 


ayaa aogpig edd sate rets mt a hel ps Po eerdy yiiane leat 
soS. ( AGES Fee aA OL “‘elada tiers a4 7 hgeseter 39.. erey 


roy 


Siay 24600% TElR2, 5 dviw Siaviiwes e hehe web, ying tet 3 


Ay 


git  dAfort podkvoues aby seat Limuebeee e709. eat. e — 
i ‘ a be a vp , 


Aun: atop (20m bas 2 8LGe ake +0). sapilg,: pasnetier nae ; Nery: 
Lov'srt Lesdegand sti ads, cath .abd pera ae sileluneil 5) RO» 

- ‘ios eee Je 
mat pdahamgbia os gia 5h Deeb aa son ted sox 3 


Table 3.1 


An example of the two cards giving all the relevant data 


for the event GT74 5 recorded at station ger. 


Cara 1 
JCT ; GT74 5 
JUNCTION CITY (WWNSS) TEXAS 


STATION DATA: LAT, LON (DEG) , ELEV (KM) 
30.479 -99.802 0.591 
EVENT DATA: ID AND LOCATION. 
GT74 5 SOUTHEREN PERU 
LAT, LON (DEG) : Soe  =12_20 
DEPH(KM) AND MAG. 113.0 5.8 
ORIGIN TIME: 2h eee Ors os pcs 0 
DISTANCES AND AZIMUTHS: 
SELOM DIST (DEG): 52.42 
GEOC DIST (DEG): 52505 
GEOC DIST(KM): 5832.0 
GEOC AZM(DEG) EV: 329.70 
GEOC AZM (DEG) ST: 145.61 
THE FOLLOWING CARD HAS PHASE ARR. TIME(HR,MIN, 
SEC), RAY PARAMETER P(SEC/DEG) ,APPARENT VELOCITY 
APPV (KM/SEC), ANGLE OF INCIDENCE AINC (DEG) 
ELLIPTICITY CORRECTION CFLL(SEC) AND STATION 


ELEVATION CORRECTION CSUR (SEC) 

Card 2 

JCT GT74 5 

PHA ARR Le P APPYV AINC CELL CSUR 
S 10 50.71 7.44 Te Gu oeoee tes o: Os Lo 
PKP Cras c 0.0 Oe Oh MO beat Oh e816) 0.0 

s isl Me eG spoke Bez toes » Osbeuml. co 
SKS OF OAS Cie 0 06.0) 105005 050 Oe0 

Pp Imo 259 Ito 125019 2) -0.6 1a Oe 00 
SS Diao. 2D) 6166535 Ga? 2020 Nea, Os27 
P-p ‘‘Wiedeis 6). 7.64 Whe aig a Newry ON a Oh cS 85 Rim ONAL fs) 


Me s0e 27 — f.54 15h a0 3 Oe Certo 


PCP fer 06201 (3672 2909 Ted 10et 2 “02.15 

Gods oleae 50.15 
SCP Ho OS. 7A, 4635 Zen Pel £0.08) | Unto 
PCS 15 57.24 4.30 25.9 5) 055819 .0. 20 
PS 14 13.14 C.0 Oe Omer) 0s0 2740's 20 
SP 19ne2 Od 14.31 Je Oo sine Os Or moet? 
P-S jee 3eot 0.0 De) Owe mule O 2; 40620 
S-S fe o5.6o 913.05 Sot 16.0 Oso2 Cei2/ 
scs Polo 196.97 16.0 Boe 0575, 0.26 
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Figure 3.1 
Some seismic phases from a deep (top) and a shallow (bottom) 
earthquake. The numbers to the left are the distances in kn 


from the earth's center. 
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period Z (vertical) was read, and all readings were given an 
estimated reading error. From the observed travel times, the 


residuals were calculated. 


Unfortunately many records were of poor quality with 
either no core reflected phase or a poor direct phase. 
Differential residuals frcem only 42 different rays were 
obtained for the PcP or ScS phase and none for PcP2 and 
ScS2. The data base obtained was augmented by results in the 


published literature. 


Data from the VASA array (figure 3.2), operated by the 
University of Alberta, was used. The array consists of up to 
7 stations each having two horizontal (NS and EW) and one 
vertical seismometer (Z). The stations have been relocated 
in each running seascn, thereby making it possible to 
examine the effect of varying aperture and crustal 
structure. The field data, recorded digitally at each 
Station, was edited and transfered to a master tape. This 
Master tape ccntains all the data from each event together 
with information about the earthquake. Thus the master tape 
very conveniently contains all relevant data for processing. 
For more detailed information about the VASA array see 


Kanaswich et al (1974) and and Bates (1976). 


Assuming that the array is located in a 2 dimensional 


Cartesian coordinate system, the arrival time, t(X,Y) of a 
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Figure 3.2 
The location of the VASA arrays in Alberta. The Edmonton 


station EDM was part of both the 1970 and 1974 array. 
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plane wave at each seismometer can be written as 
PAXs Ys tO Ut (pl £7 x 4 p2o ek vy (1.1) 

where to is the arrival time at the origin and pl and p2 are 
the x an y components of the ray parameter pe From the 
arrival times for at least 3 stations a unigue but not 
necessarily correct p and Az can be determined. With more 
than 3 stations no unique solution can be obtained since 
local inhomogeneities will introduce inconsistent delays at 
the individual seismometers. The arrival times must be 
fitted to (1.1) to find (p1,p2) in a least squares sense 
(Husebye (1969)), and the resulting p-Az will be a more 
reliable average for the area. The effect of small _ scale 
random inhomcgeneities is then averaged out. The success of 
this operation is a function of the number of stations and 
the geometry cf the array (Bates (1976)). For reducing the 
effect of crustal inhomogeneities a large array, with an 
aperture of at least 150 km (like the 1974 VASA array), will 
be best for the study of teleseismic arrivals since delays 
in the arrival times, caused by local structure then. give 


smaller relative error in the travel time difference between 


Pairs of stations. 


A superior technique for determining p-Az is by a 


velocity spectral analysis. The so called VESPA technique 


used by Davies et al (1971) involves the formation of a beam 


by delay and summation of the seismic traces of an array, 


and the determination of the power in the beam over a 


specified time window, which is stepped down the record. 
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Using a fixed azimuth a two dimensional plot called a 
Vespagram), of power as a function of p and time, can be 
made. A futher improvement of the VESPA technique is the so 
called COVESPA technique designed by Gutowski and Kanasewich 
(1974). Instead of power, a coherency, CC, is calculated as 


a function of slowness, p, and time t; 


2 Boeke se 
Tig: 

CC(Az,p,t) = Dae: 
tee 


M* (M-1)*T 


where M is the number of stations, k is an incremental 
integer on channel i («i#k), T is the length of the time 
window and fit is the amplitude of the signal at i'th 
Channel at time t. The computation starts by inserting time 
delays into the signals from each station corresponding to 
the chosen p and Az. Then for each time along the records, 
the zero lag cross correlation of all combinations of two 
Stations, within the time window T, is computed, normalized 
to unity and summed. The coherency is one if, at a given p, 
AZ and t, the phases and wave forms of the signals, within 
the window, are identical at all stations. A contour plot 
(COVESPAGRAM) similar to the VESPAGRAM can be plotted with 
CC as a function of p and t, see fig 3.3. A difficulty een 
the COVESPAGRAM is that, the azimuth is fixed and since it 
is really a function of time, p will only be correct at a 


time where the azimuth has the assumed value. For instance 
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Figure 3.3 


A covespagram Showing the arrival of both the P and PcP 
phases. Below the covespagram is shown one of the 
corresponding seismograms (same time scale) recorded on the 
vertical channel at staticn VUL. The event is from Panama 
arriving at an azimuthal direction of 130°. The magnitude of 


the event is 5.9 and the depth is 15 ka. 
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if P and PcP do not arrive from the same direction, the p 
value of either P or PcP will be incorrect. Gutowski showed 
that the COVESPA technique was superior to the VFSPA 
technique in terms of resolving power, sidelobe leakage and 


Sensitivity to amplitude variation over the array. 


The COVESPA technique is especially useful for an array 
with few stations, since the data is used more efficiently, 
and it was therefore decided to use this method for 
determining p and Az for the P and PcP phases. The original 
program written by Gutowski was modified as follows. To 
determine the best pf and Az at each time, t, the original 
program calculated and printed out a whole series of 
Covespagrams for different Az. By fitting a parabolic 
surface to values of coherency near a maximum the best p and 
Az was found at discrete times. The Az value which best 
represented the whole wave train was chosen to make the 
Covespagram. Since Az {and p) changes with time, it seems 
more natural to look at CC as a function of p and Az at each 
time t. Thus for each discrete t the current program prints 
out cc as a function of p and Az (see table 3.2). The 
response of the array was calibrated in a computer 
Simulation for each event by using a test signal. This was 
achieved by giving each station a mixture of up to 3 time 
signals with delays corresponding to 3 specified p-Az 
values. The signals had the form 

A * sin(2*pi/T1) * (1 - t/T2) (3.2) 


where A is the amplitude, T1 the period of the signal and T2 
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Table 3.2 

Typical covespagrams for the PcP and P phases. The 
covepagram is calculated for an event in the Panama area 
using the stations EAT, HAN and SES. The top matrix shows 
the covespagram for the P phase and the bottom one for PcP. 
Using an arbitrary value for time = 0, P arrives at time T = 
3 seconds and PcP at T = 68 seconds. The numbers in the 
matrix are the coherencies (multiplied by one hundred) as a 
function of azimuth (first column) in degrees and slowness 
(first row) in sec/deg. Zeroes indicate negative coherencies 


The P phase. 


T= 3 6.50 6.80 7.10 7.40 
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The PcP phase. 
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the duration of the signal. Calculating the array response 
makes it possible to see the effect of period, array 
geometry, and having a mixture of signals with different p- 
Az values. An example is shown in table 3.3. A station 
elevation correction was made to reduce the values of p-Az 
to corresponding values at sea level. Thus errors due to 
differences in station elevation were eliminated (the 
maximum was 0.03 sec/deg. in p and 0.5° in Az). A bandpass 
filter was included in the program to improve the signal to 
noise ratio. A _ significantly better determination of p-Az 
was then possible with signals contaminated by noise. In the 
Original program it was assumed that the wave front was a 
straight line (along a great circle), but that is only true 
if the epicentral distance is 90°. A correction was made by 
calculating the additional distance, the wave front has to 
travel from one station tc another assuming a curved wave 
front (small circle on the earths surface). For a medium 
sized array aperture < 75 km), the correction is 
insignificant, but for the largest possible configuration 
with the VASA array, the error in p and Az could be as_ much 


as 0.2 sec/deg and 2°. Typical errors in this study were 


0.05 sec/deg and 0.5%. 


Testing and _ using the Ccvespa_ program 


Numerical experiments were performed to determine the 


best values for the parameters in the algoritm. The time 


window was set equal to 1 second (comparable to the periods 


of the signals) and a p-Az value was read at a time close to 
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the start of the phase where the highest coherency was 
found. Usually a value of cCC>0.8 existed within the two 
first cycles of arrival of P or PcP. The P-Az grid size was 
decreased until the p-Az values were determined to an 
accuracy approaching a maximum of 0.02 sec/deg. and 0.5°. 
The number of stations and the station configuration was 
very important. Since iocal inhomogeneities will introduce 
different time delays for each station it is only to be 
expected that the coherency will decrease with a larger 
number of stations, and greater station separation. The 1975 
VASA array was large (see fig 3.2) with 6 portable stations 
in Southern Alberta plus the Edmonton station. By using 
different combinations of the stations it was found that 
different combinations of the portable stations gave 
resonably consistent results. Different 3 = station 
combinations gave maximum differences in p and Az of 0.2 
sec/deg and 3°, while a simultaneous solution using 4 or 
more stations reduced the differences to 0.05 sec/deg and 
Ooo. Including the station -EDM greatly reduced the 
coherency and stability of the results. This is probably 


because EDM is relatively far away from the group of 


portable stations, thus making the difference in crustal 


structure more significant. Also the array is less symmetric 
with EDM, and Bates (1976) showed theoretically that the 


most stable results are oktained by using a symmetric array. 


Elongating the array wili have the effect of making the 
determination of p and Az less reliable, see the example in 
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table 3.4. Consequently the EDM station was not used in the 
1974 data. Another important result, arising from comparing 
p-Az values from different station combinations, was that, 
although different combinations gave different values of p- 
Az, the difference in p-Az between the phases PcP and P 
remained constant for different combinations. Thus the 
effect of local inhomogeneities seems to be the same on p-Az 
for P and PcP, and therefore a differece will cancel out the 
effect. In the 1970 array, the array was smaller and closer 
to EDM so that all stations could be used. The coherency, in 
general was higher than for the 1974 array, because the 
array was smaller, but that also had the effect of reducing 


the resolution, see table 3.3. 


Theoretical travel times, p and Az were calculated for 
all the phases mentioned in table 3.1. The seismograms 
(plots of the digital data) were searched for PcP, and if at 
least 2 stations had a good PcP phase, p and Az were 
measured for P and PcP, using as many staticns as possible. 
If PcP could be identified in the covespagram, the grid size 
was reduced to the resclution limit, and the value for p and 
Az read. The error assigned to p and Az would then be the 
grid size. Also the arrival time of P and PcP were read from 
all stations, and the average calculated. Finally the travel 
time and p-Az residuals were calculated for P, PcP and PcP-P 
using the J-B predicted values. A total of 37 events from 


South and Central America were available and 9 were found to 


have PcP phases of reasonable quality. 
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Table 3.3 

An example on the array response for the 1974 and 1970 
arrays. The first set of numbers give the slowness 
(sec/deg), azimuth (degrees) and amplitude of the test 
Signal used to generate the covespagram. The period of the 
signals is 1 second and the duration is 6 seconds. The 
second set of numbers are the coherencies (multiplied by one 
hundred) as a function of azimuth (first column) and 
slowness (first row). 


ARRAY RESPONSE FOR THE 1974 ARRAY. 


SLOWNESS AZIMUTH AMPLITUDE 


6.00 140.0 1.00 
5-50 5.80 6.10 6.40 
135. 0 Op 0 20830F 0 (06,0919 73880046 
136.0 0.26/80 82.16) 0 © 24-66 59°18 
137.0 Zoe Bu. 52 5 © 0-30 30 «© 0 
138.0 Oe W248 0) Oe BOS ONe 0) 40> 0. 8 
139.0 O30 © 0 40 50-39 238 0 © 20 
140.0 00.0 0 5S 96-680 200 20" 53 
141.0 25 fs "0 Be 33 57 28° 6 2. Cw 
142.0 iy.) 0 GO 90. Ft 20° 0. 6 ee 10 
143.0 0 -F0 FO 30 0 O° 3 2729 1B 
144.0 O SO080 20 G4.70 © ©. 20733:.29 
145.0 Ge 0°90 60.320 0 0 0° 0) 28-28 


ARRAY RESPONSE FOR THE 1970 ARRAY. 


SLOWNESS AZIMUTH AMPLITUDE 


6.00 140.0 1.00 
ey ayy, 5.80 6.10 6.40 
135.0 aya te 0% 09 0 06271045) 65e/7085 
136.0 3646. 40 0 0: 10°38.65) 96°96 63 
137.0 0 0 0. 0:°35.69 9679683) .65 
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Table 3.4 

Comparison between a symmetric and an elongated array. The 
first set of numbers give the slowness (sec/fdeg), azimuth 
(degrees) and amplitude cf the test Signal used to generate 
the covespagram. The period of the signals is 1 second and 
the duration is 6 seconds. The second set of numbers are the 
coherencies (multiplied by one hundred) as a function of 
azimuth (first column) and slowness (first rOw). 


AN ELONGATED ARRAY 
ARRAY RESPONSE FOR STATIONS FOR SES MAP 


SLOWNESS AZIMUTH AMPLITUDE 
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A SYMMETRIC ARRAY 
ARRAY RESPONSE FOR STATIONS FOR HAN SES 


SLOWNESS AZIMUTH AMPLITUDE 
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CHAPTER 4 


DETERMINATION OF THE DIP ON THE MOHO BY COVESPA ANALYSIS 


It has been shown that small scale inhomogeneities do 
not effect the array results seriously but there is the 
possibility of large scale structure. The most serious 
effect occurs if the base of the crust at the Mohorovicic 
discontinuity (MOHO) to be a dipping surface. There are 
other dipping interfaces in the crust but the Moho is the 
best defined with the largest velocity contrast. Niazi 
(1966) showed how corrections for the effect of a dipping 
plane could be calculated and made a series of correction 
tables. In general the depth, strike and dip of the Moho can 
be found by refraction or reflection studies. This is no 
minor undertaking and has never been done completely for 
each location of any array. A method which could use the 
available data from the array itself to determine the dip 
and strike of the Mohc would be desirable. One _ such 


technique is presented here. 


It was noticed in some of the covespagrams that after 
the first P arrival the coda of the coherency peak shifted 
consistently by a small amount in the p-Az plane. The 
Magnitude of the shift was about 0.1 sec/deg and 1° and it 
was seen a few seconds after the initial P phase. An 
explanation could be that P waves were converted to S waves 


(hereafter called PS) at a sloping interface in the crust. 
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It was decided tc search for similar Changes in the 
covespagram for PS conversions from the Moho. An unconverted 
P wave shows a smaller change in p-Az as a function of dip 
angle than a converted (PS) phase. In principle it should be 
possible to calculate the slope of the Moho given slowness 


and azimuth for both P and PS arrivals. 


The PS will arrive about 4-5 seconds after P, and since 
P converts to SV waves horizontal seismograms were examined 
and rotated to yield the radial and transverse components of 
motion. The converted arrivals are vertically polarized 
Shear waves (SV) and should only appear on the _ radial 
component. At an epicentral distance of about 60° the angle 
of incidence at the base of the crust is 30°. A typical 
ratio for P velocities above and below the Moho, in Western 
Canada (see fig 4.1), is 0.9. For these parameters the 
amplitude transmission coefficient for PS is 0.12 (Larry 
Marks, personel communication). The amplitude of P as 
Observed on the radial component was, in general, half the P 
amplitude as observed on the vertical component, so the 
amplitude ratio of P to PS on the radial component would be 
about 4, A series of covespagrams were made using data, fron 
the 1974 array, with high signal to noise ratio. On several, 
€ second coherency peak was found 4-5 seconds after the P 
arrival (table 4.1). Some tests were made with covespagrams 
calculated from ene eal seismograms to see if it was 


possible to separate out two phases arriving at nearly the 


same time but with slightly different prAZenUsing 3 and 4 
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_ From Cumming and Kanasewich (1966). 


CRUSTAL THICKNESS IN WESTERN CANADA 


Figure 4.1 
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Table 4,1 

An example of the covespagrams for the P and converted PS 
phases. The calculations are made for an event from the 
Caribbean Sea and using the stations EAT, MAP, SES and VUL. 
The first covespagram (top) shows the arrival of the P phase 
(8.2 sec/fdeg, 136°) at time = 4 seconds and the second 
(bottom) the arrival of PS (7.8 sec/deg, 129°) at time = 8 
seconds. The numbers in the matrix are the coherencies 
(multiplied by one hundred) as a function of azimuth (first 
column) in degrees and slowness (first row) in sec/deg. 
zeroes indicate negative coherencies 
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stations the model covespagrams were calculated LOL 
different amplitude ratios and a mixture of two phases 
Similar to what is expected for P and PS. Some examples are 
Shown in table 4.2 and 4.3. It is seen in the example in 
table 4.2, that excellent separation is obtained while for 
the example in table 4.3 the response pattern is such, that 
a P side lobe exists at almost the same f-Az, as expected 
for PS. Thus separation is impossible, and consulting the 
array response is absolutely necessary before picking a PS 


phase from the covespagram. 


Searching all the data with a reasonably good signal to 
noise ratio, 7 PS phases were found in the covespagrams, and 
used for model calculations. The results are plotted as a 
function of azimuth for elastic waves arriving from 
earthquakes distributed in widely different directions 
(figure 4.2). These values had to be compared with 
theoretical values, and Niazi's tables could not be used, 
since they do not cover the velocity ratios found in the P 
to S conversion. Instead of following Niazi's method of 


calculation a novel method was derived leading to a simpler 


algorithn. 


Define a ray vector B parallel to the ray as in figure 


1/V* (sin (I) *cos(E) ,Sin(1I) *sin(E) ,cos(t) ) (4.1) 


Tes) 
tt 


(Bx, By ,BZ) 


The magnitude of B is 1/V, where V is the seismic wave 
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Table 4.2 

The array response for a single and a mixture of two phases 
using the 4 stations EAT MAP SES VUL. First is shown the 
response for the single arrival and below the response for a 
mixture of two arrivals with different p-Az and an amplitude 
ratio of 0.2. The numbers in the matrix are the coherencies 
(multiplied by one hundred) as a function of azimuth (first 
column) in degrees and slowness (first row) in sec/deg. 
zeroes indicate negative coherencies. 
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Table 4.3 

The array response for a single and a mixture of two phases 
using the 3 stations EAT FOR MAP. First is shown the 
response for the single arrival and below the response for a 
mixture of two arrivals with different p-Az and an amplitude 
ratio of 0.2. The numbers in the matrix are the coherencies 
(multiplied by one hundred) as a function of azimuth (first 
column) in degrees and slowness (first row) in sec/deg. 
zeroes indicate negative coherencies. 


SLOWNESS AZIMUTH AMELITUDE 


7.00 142.00 1.00 
6.50 6.80 7.10 7.40 
134.0 CeO e 0 7) O04 Be0) 60. 0R 10250 
135.0 w2500 85 85 80 S2e1 70 0 07" 6 
136.0 32649. 73°58 43° 12 FiO 2 On 00.0 20 
137. Cie G2) Oe Oe 0 OF Ot 30) 33 017 
138.0 0 0 0 0 9 0 14 46 74 80 84 
139.0 uote OF 0 —0.° 0. OF Os 0 N10 
140.0 Jone OF 07 tO oo Ode 0 On 0 
141.0 oe Oo FO 0 823 39 Ses 02 IO 
142.0 Sanu <0 50° 76100 92 -707 30 70% 70 
143.0 0 9 20 44 48 43 20 0 0 0 Q 
144,0 Gm Os 20ers) O30) 0010s) Ore 
145.0 OmeO, BOL PO. WOe “On 20) OF Os ee eiae 
146.0 Dees) 29.0 Be OD oO 0 0g Ore ae: 
147.0 tomes 329 <8 10) 1209 00° ORCS 20 


SLOWNESS AZIMUTH AMFLITUDE 


7.00 142.00 1.00 
6.70 138.00 0.20 
6.50 6.80 7.10 7.490 

134.0 OA 40.) 49. >26" 20-37. 25° AOu nO. 200 8 GC 
1355.0 4295084 94.92 71933. "0 40 0 4% 
136.0 6420 48 38 34 117.0 0770 0 
137.0 On. O- 0 0-0 OF Offa S6 63505 
138.0 O10 0 0.0 0* a535963 73°79 
139.0 Home 0. 0 O60 0 OO. 0.0 0 
140.0 Hem16 0 O20 ‘OF 0 'g0e 0 0 0 
141.0 OFC 0) 0 27 Zeqs0re T3021 
142.0 O80 0°45 72400 92770 20. 10 0 
143.0 Om.0 14 39 87.43 20° 0°50 0 0 
144.0 Celtel (02.08 0 0. 50 0 0 
145.0 ono 0 1 0 0 200.20 0 Oe 0 
146.0 bee: 301.30 (8) OQ. 00s 0 20: 0 
147.0 geese 30 € OF 0 0 0.0 0 .0 
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Figure 4.2 

The observed differences in slowness and azimuth between the 
P and PS arrivals. On top is seen the difference in slowness 
between the P and the converted PS wave at the Moho as a 
function of azimuth. Below are the corresponding azimuthal 
observations. 
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Figure 4.3 

The coordinate system in which the ray vector B is defined. 
The x-y plane is an interface with seismic velocity V_ below 
and Vi above and the incoming ray approaches the interface 


from below. 
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velocity, and the ray parameter p is (Bx,By) when measured 
in the x-y plane. If the x-y plane is an interface between 
two layers with velocity V1, above and V below, the ray 
vector Bi above will be 

Bi = 1/V1* (Sin (11) *cos(E1) ,sin (I1) *sin (E1) ,cos (I1) ) 
Using Snell's law and noting that E1=E, B1 can be written 

Bi = (Bx,By, cos({1I1)/V1) (4.1) 

where cos(I1) can be calculated from cos2#(I1)= | og 
(Vi*sin(I)/V)2. B and p wili depend on the coordinate systen 
in which they are measured and only if the planes in which p 
is measured are parallel, will p remain the same. To find 
the change in p, for a ray passing a non parallel interface, 
some transformations must take place (see fig 4.4). Below 
the interface the ray vector is B in the unmarked coordinate 
system, B* in the primed system and B1 * above the interface 
in the marked and Bi in the unmarked system. The 
relationships are 
Bev= M+ B= (Bx, By*sBz*) 
where M is the transformation matrix between the primed and 
original system. Using (4.1) gives 

Bit = (Bx',By',1/V*cos(I1")) 

cos2(I1') = 1-(4V1*sin (I*) /V)* 

and I* is found from 

Post tjo= Bz'/| Bo = Bzt 4 ¥ 
Using the inverse transformation matrix M-* = of 


Bi = ut eeo tt -andepi. = (B1x,B2x) 


This analysis can easily be extended to any number of non 
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Figure 4.4 
‘Dipping interface coordinate system. The standard coordinate 
system is x-zZ while the system for the dipping interface is 


x'-y', The z and z* axes are assumed parallel for 


Simplicity. 
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parallel layers with any orientation. 


Using the above formulation a program was written to 
find the change in p and Az for a ray passing an interface 
which is not parallel with the earths sea level surface. The 
orientation of the interface is defined by its strike and 
dip, and in general, two rotations, one around the z-axis 
and one around the x or y axis, will give Me These two 
rotations are most easily combined into one Euler rotation 


(see appendix 3) with axis of rotation along the strike. 


Tabulations of the change in p and Az as a function of 
Pe, Az, V, V1, strike and dip are given in appendix 2. Where 
possible, results were checked against those of Niazi 
(1966). The essential features are that increasing dip gives 
increased change in gf and Az; changing p (and thereby the 
angle of incidence) only affects the interface change in p 
Slightly, while the Az change increases with decreasing p 
(decreasing angle of incidence). The p-Az correction changes 
cyclically with direction of strike, however the correction 


to p is 90° cut of phase with the correction to Az. 


The results shown in figure 4.2 were fitted 
simultaneously (by eye) te two sine functions, 90° out of 
phase. The p date fit a sine curve better than the Az 
results. That is to be expected (see discussion above) since 
rays with different P values were used. By consulting the 
tables the dip was found from the amplitude of the p curve 


and the strike was found from the crossover points. For the 
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1974 array centered an Suffield, Alberta, the Moho dips down 
2°+0.5°9 towards the southeast (Az=1409£15°). These figures 
are in reasonable agreement with crustal refraction results 
in Alberta and Montana (Kanasewich (1966), Berry et al 


(1971) and Ganley and Cumming (1974)). 


In conciusion this new technique involving a 
covespagram of array data appears to be very promising in 
determining the strike and dip of a major first-order 
discontinuity. If the velocities are known then it may also 


be possible to find the depth. 
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CHAPTER 5 


MANTLE INHOMOGENFEITIES 


An interactive program was written which would search 
for individual or pairs of seismic phases satisfying a given 
set of parameters. The parameters specified the selection of 
desired events; seismic stations; short period or long 
period components; reading of differential times from peak 
to peak or initial onset to initial onset; maximum allowable 
reading error; desired anomaly range; depth and distance 
range for earthquakes and grid location of the ray center. 
The output can be a numerical print-out or in graphical form 
as a correlation matrix or map of anomalies. The maps 
include the continents to help identify the locations and 
may also include the stations, events, bottoming points of 
the rays, and all or the central portion of the ray path. An 
analysis of travel time residuals as a function of some of 


the parameters must be made first to evaluate their 


relevance, 


It is a common practice to read the differential travel 
times from peak to peak (written as p(ScS-S) and p(PcP-P)) 
instead the ideal which would be from individual to 


individual onsets (o(ScS-S) and oO(PcP-P)). If the spectral 


Characteristics of two phases such as P and PcP are not 


Similar, reading p(PcP-P) instead of O(PcP<-P) could 
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introduce an error. A comparison is made of residuals fron 
P(PCP-P), O(PcCP-P), p(ScS-S) and o(ScS-S) in figure isi. ait 
is evident that p(PcP-2) residuals are smaller than those 
from o(PcP-P) indicating more high frequency content in PcP 
than in P. A similar result is obtained for the ScS phase, 
although much more scatter is present. The average 
difference between of {FcP-P) and p(PcP-P) is 1.0 second and 
between o(ScS-S) and p(ScS-S) is 0.3 second. Kanamori (1967) 
compared the pulse widths for short period P and PcP phases 
and found PcP to be shorter than P. He explained the 
difference in terms of a lower attenuation (high Q) in the 
lower mantle as compared to the upper mantle. That is, PcP 
was less damped than P. A Similar explanation is plausible 
for the ScS and S residuals. Fortunately, the differences 
due to methods cf measuring differential residuals are small 
compared to the actuai residuals and the choice is not 
Critical to our interpretation. The o(PcP-P) and o(ScS-S) do 


give the best value and they will be used whenever possible. 


Mitchell and Helmberger (1973) observed that the long 
pericd horizontal polarized (SH) ScS arrived earlier than 
the long period radially polarized (SV) ScS for epicentral 
distances larger than 60 to 70 degrees. Their interpretation 
was that precursors to ScS, generated as reflections Off wa 
proposed high velocity layer just above the core-mantle 
boundary, arrived slightly before Secs and would be in phase 
with the SH ScS and out of phase with the SV ScS. It would 


then appear as if the SH Scs would arrive earlier than the 
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Figure 5.1 

Comparison of differential travel times read from peak to 
peak and onset to onset. The differential travel times read 
from peak to peak, p(ScS-S) and p(PcP-P), are plotted as a 
function of the differential travel times read from onset to 
onset, o(ScS-S) and o(PcP-P). 


P(PCP-P) VERSUS O{PCP-P) RESIDUALS 
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SV ScS.e. The difference in arrival time was, in general, 
about one second. Beth cur short and long period data was 
examined for a similar tendency. Data with ray paths having 
approximately north or south trajectories were used. Results 
are shown in table 5.1. If Mitchell and Helmberger's 
hypothesis is correct then the the sign in the first and 
third column should be negative and increase with distance. 
It is not possible to draw any conclusions from our data 
regarding a high velocity layer. It should be noted that 
Mitchell and Helmberger's estimated average reading errors 
were twice the size of the mean of the anomaly they were 
interpreting (figure 5.2). From the table it is concluded 
that the choice of using SV or SH waves for studying ScS is 


mOt Critical. 


Analysis_of the travel time and p-Az data. 


The average observed travel time residuals in seconds 
were found to be 0.1 for P, 2-1 for S, -1.1 for PcP and 0.7 
for ScS. Since the average P residual, representing the 
largest number of observations, is close to zero, a travel 
time will be considered "normal" if it is within t+ 1.0 
second of the J-B tabulation. S wave residuals are defined 
aS normal if the residual is less than 1.7 second. Slowness 
is "normal" if the anomaly is within t 0.1 sec/deg. These 


limits exclude reading errors. Thus a P wave residual of 1.3 


+ 0.5 seconds will be considered normal. All the data used 


in this study are shown in figure 5.3. The observed 
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Table 5.1 


Comparison between the differential travel times ScS-S read 
on the east-west and the north-south components. The numbers 
listed in the first column under the heading o(ScS-S) are 
the differences between the o(ScS-S) residuals read on the 
east-west and the north-south components. The second column 
is the reading error. Numbers under the p(ScS-S) heading are 
the corresponding differences in the pqScS-S) residuals. 
Units are seconds. Distance is the epicentral distance in 
degrees. 


0(ScS-S) piScS-S) Distance 

0.3 0.7 0.0 0.4 77 

0.1 0.8 0.1 0.4 76 
-1.5 1.7 -1.0 0.4 69 Short period 
-0.1 0.7 -0.2 0.2 61 residuals 
-2.0 Ve2 = ae 54 

Oat a Fete -C.3 0.4 33 

1.0 4.0 0.0 2.9 57 Long period 

~ - -1.0 1.0 u7 residuals. 
-0.5 2.0 -1.1 1.0 46 
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Figure 5.2 

Difference in the travel time residuals of ScS-S between the 
radially polarized components and the transversely polarized 
components. The figure is from Mitchell and Helmberger 
(1973). The solid lines are smoothed differences haseuees 
from theoretical seismograms for a model having a 60 km 
thick transition zone above the core-mantle boundary with a 
velocity increase of 0.5 km/sec. The symbols identify 


different events. 
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Figure 5.3 

All the travel time data used in this study. The symbols 
indicate the surface projections of the deepest points of 
the rays. The differential residuals are marked as either 
positive, normal or negative as defined in the text. 
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differential travel times and p-Az data from the Caribbean 
are shown in figures 5.4 and 5.5. The projection of each ray 
together with its deepest point is plotted. A symbol is 
indicating if the corresponding differential residual is 
normal or significantly positive or negative. In these plots 
all the differential travel time and slowness data are shown 
including o(ScS-S), p({ScS-S), o(PcP-P) and p(PcP-P) for 
either the two horizental or the vertical component, as 
available. Inconsistancies, showing up as superpositions of 
symbols, are few in number. Lateral change in the anomalies 
shows up most clearly in the plot of the p-Az differentials. 
Two sets of rays (X and Y in figure 5.5) having anomalies in 
differential slowness and azimuth are very close to rays 
With no such anomalies. Since the p-Az anomalies are 
differential and the rays in the groups X and Y are very 
close together at the array, the source of the p-Az 
anomalies cannot be close to the array. Previously it has 
been shown that an azimuthal anomaly is not likely to be 
close to the earthquake and using differential p-Az 
residuals greatly reduces any effect due to inhomogeneities 


in the source region. Therefore lateral velccity gradients 


must exist in the deeper mantle. 


The use of differential residuals has the disadvantage 
that the source of the residual can be either along the 


direct, reflected, or both rayse One possible way of solving 


shat problem is to correlate the differential p, Az or 


travel time residual (R - D) with either the direct ray 
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Figure 5.4 

All the observed differential travel time residuals from the 
Caribbean area including both body and shear wave data. 
Shown are the surface projections of the entire rays 
together with a symbol marking the deepest points of the 
rays. The differential residuals are marked positive, normal 
or negative according to the defination set up in the text. 
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Figure 5.5 

The array data for rays passing under the Caribbean. The 
surface projections of the entire rays together with a 
symbol marking the midpoints of the rays. The symbols 
indicate if the differental Slowness residuals are 
Significantly positive, negative or normal as defined in the 
text. Arrows drawn perpendicular to the rays give the size 
of the differential azimuthal residuals (degrees) and the 
directions show which way the rays are displaced. 
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residual, D, or the reflected ray residual R. Assuming the 
upper mantle is normal (where the direct and reflected rays 
are close together) the following relationships would hold: 

(RoscD) = 1 #)R | (5.1) 
for the velocity anomaly being only along the reflected ray 
and 

(R - D) = -1 * D (5.2) 
for the velocity anomaly being only along the direct ray. If 
there are velocity anomalies along both the direct and 
reflected rays the above correlations do not occur. Jordan 
and Lynn (1974) found that relationship (5.2) held for a 
large part of their ScS-S data from the Caribbean and 
therefore concluded that the velocity anomaly was along the 
S rayse Since our data from the Caribbean covers a much 
larger area than that of Jordan and Lynn it was not possible 
to fit any one of the abcve equations to all the data. 
Therefore an analysis was made to classify each anomalous 
differential residual as originating either along the direct 
or reflected ray or being undefined. By plotting all the 
thereby identified residuals it was hoped that they would 


group in a simple geographical pattern. 


The principles for classifying the residuals are given 
below. If only travel times were available, normal 
differential residuals were discarded. Of the remaining 
residuals, those which fitted either of the correlation 
equations within 0.5 second (excluding reading errors), were 


used. A negative residual was considered a indication of an 
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high velocity region close to the ray center. If both p-Az 
and travel time residuals were available, the p residuals 
had priority in determining the origin of the anomaly. 
Anomalous differential p residuals were used if they fitted 
either one of the correlation equations within 0.05 sec/deg 
excluding reading errors. A negative residual in p was 
interpreted in terms of a high velocity anomaly. In 
ambiguous cases (fit to both correlation equations) the 
travel time and azimuth residuals were consulted. Assuming 
that the source of the azimuthal anomaly was close to the 
center of the ray a first order correction to the 
corresponding travel time residuals was made. If the travel 
time residuals, according to the above ruie, gave a clear 
indication of which ray was the main source of the anomaly, 
and in agreement with the interpretation of the slowness 


anomaly, the data was used. 


In several cases there was excellent agreement between 
the interpretation using the p-Az and travel time data. The 
results from the Caribbean area are plotted in figures 5.6 
ands Sele. ttr is seen that the majority of reflected ray 
residuals are located in the southern part of the Caribbean, 
Central America and the northern portion of South America. 
Most #£o0fs theldirect ‘ray residuals are north of 30° latitude 
in the USA. It is interesting to examine the correlation 
plots for all the residuals related to these two areas. More 
specifically, the northern area was chosen to be between 


latitude 30° to 40° north and 65° to 95° east. The southern 
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Figure 5.6 

Velocity anomalies alcng the reflected rays. The central 10° 
of the surface projecticns of the entire rays are marked to 
indicate if the velocity anomalies are positive or negative. 
The results on the map to the left are obtained fron 
observational data (this study) while the results on the map 
to the right are derived from the published data. 
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Figure 5.7 
Velocity anomalies along the direct rays. The central 10° of 
the surface projections of the entire rays are marked to 
indicate if the velocity anomalies are positive or negative. 
The results on the map to the left are obtained fron 
observational data (this study) while the results on the map 
to the right are derived from the published data. 
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area was between 5° to 20° north and 65° to 95° east. The 
correlation plots for the southern area is shown in figure 
5.8 together with the corresponding sample correlation 
coefficients. The figures indicate that the residuals are 
most likely due to anomalies along the reflected ray. For 
the shear waves the sample correlation coefficients are 0.78 
versus -0.03 and for the compressional waves 0.84 versus - 
0.08. This result is in contradiction with the study of 
Jordan and Lynn (1974) for the same areae Their ScS-S 
differential travel time results (figure 5.9) indicate that 
the anomalies were along the direct ray (sample correlation 
coefficient of -0.86 versus -0.11). The main difference 
between the two studies is that Jordan and Lynn used long 
period seismic waves while this study uses predominantly 
Short period data. Therefore it seems possible that the 
higher resolution, cbtained using short period data, makes 
it possible to detect smaller scale anomalies unnoticed with 
the long period waves. From the northern area both p-Az and 
travel time residuals are available (figure 5.10). The 
sample correlation coefficient for the slowness indicates 
that the anomalies are predominantly along the direct ray (- 
0.97 versus 0.78). Note that although the coefficient of 
0.78 is relatively high the slope of the line is not 45° as 
it should be. In fact, the PcP residuals are negligible. All 
the rest of the sample correlation coefficients favor the 
reflected ray. The S wave residuals are insignificant as 


compared to the size of the measured errors and correlation 
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Figure 5.8 


Correlation plots for the southern Caribbean area. PcP-P, 
ScS-S, PcP, ScS, P and S are travel time residuals in 
seconds. The number shown on each figure is the sample 
correlation coefficient. The dotted line gives the ideal 
relationship between the residuals. 
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‘Pigure 5.9 

Correlation plots of shear wave residuals from Mitchell and 
Helmberger (1973). On top is shown the S versus ScS-S 
residuals and below the ScS versus ScS-S residuals. Circles 
and squares denote times from two different events. The 


sample correlation coefficients are Te and Tous: 
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Figure 5.10 

Correlation plots for the southern United States. The 
Slowness residuals (sec/deg) for PcP-P, PcP and P are p(PcP- 
P), p(PcP) and p(P) and the azimuthal residuals (degrees) of 
the corresponding phases are Az(PcP-P), Az(PcP) and Az(P). 
PcP-P, PcP and P are travel time residuals (seconds). The 
numbers shown on each figure are the sample correlation 
coefficients. The dotted line gives the ideal relationship 
between the residuals. 
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was meaningless. Among the P wave residuals only two are 
large but since the same rays have slowness residuals these 
are used predominantly in the interpretation. The azimuth 
residuals clearly originate alcng the reflected ray (0.78 
versus 0.09), and since the residuals are consistantly 
negative, they might indicate a wide spread horizontal 
velocity gradient perpendicular to the reflected ray path. 
Thus there are velocity anomalies both along the direct and 
reflected rays and that might explain why the sample 
correlation coefficients are not significantly different for 


the travel time residuals for the direct and reflected rays. 


Data from two other studies are available for rays 
passing under the Caribbean. Mitchell and Helmberger (1973) 
published 35 SCS-S cbhserved travel times and the 
corresponding S residuals. The ScS residuals are calculated 
here and interpreted for the first time. Jordan and Lynn 
(1974) used 45 ScS-S, ScS and S residuals in their study of 
velocity anomalies under the Caribbean. Both studies give 
the residuals relative to the Jeffreys and Bullen tables, 
and are directly comparable to our results. The data were 
required to have a minimum ScS-S residual of 1.7 second and 
to have a good correlation (within 1 second) between ScS-S 
and ScS or S residuals. Thus all residuals with uncertain 
origin of the anomalies and normal data were rejected. The 
results are plotted in figures 5.6 and 5.7 and it is seen 
that there is a reasonable agreement between our 


observations and the published residuals in the few cases 
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A summary has been made in figure 5.11 showing the 
central 10° of all direct rays having a significant anomaly. 
Results from some other studies are indicated as well. The 
two dashed lines mark bottoming points and direction of P 
Tays having a negative azimuthal residual (Bates (1976), 
Wright (1973))-. A downgoing PcP ray from this study also 
shows a strong negative azimuthal residual for a trace 
coinciding with Wright's result. Davies and Sheppard (1972) 
Showed that low values of slowness for P rays exist for rays 
bottoming under the eastern part of the Caribbean. Similarly 
Bates (1976) found low slowness values for rays bottoming 
under the north-eastern part of the Caribbean. The simplest 
interpretation is that there is a high velocity anomaly 
along the deepest points of the rays. Combining all the 
data, it seems that the mantle sampled by the direct rays 
under the Caribbean is relatively simple. To the east there 
is a high velocity region, which over a short distance, 
changes laterally to a low velocity zone under Central 
America. Both the low and high velocity regions seem to 
extend well into the southern United States. Such a lateral 
velocity gradient will also explain the observed azimuth 
residuals. The depth of the anomalous zone is about 1000 - 
2000 km and the horizontal dimensions seems to be about 2000 


km. The azimuth residuals of Bates and Wright are about 4°. 
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Figure 5.11 

A summary of all the velocity anomalies along the direct 
rays from the Caribbean area. The central 10° of the surface 
projection of the ray paths are marked to indicate whether 
the velocity anomaly is positive or negative. The dotted 
lines mark strong azimuthal anomalies, which displaces the 
rays to the east. 
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An attempt will be made to estimate the velocity contrast 
required between the areas with high and normal velocity. 
The radius of curvature, R, perpendicular to a velocity 
gradient dV/dx in the direction of the x-axis, is R=V*dx/dVv, 
where V is the velocity. If the ray length through the 
region with the velocity gradient, is D, then to a first 
approximation, the angular deviation of the ray is D/R and 
the azimuth deviation, A, as seen by the reciever is A=D/2R. 
Assuming the velocity pertubation, AV, measured in percent, 
occurs linearly over a distance L in the x-direction, the 
azimuth deviaticn is 
A =0.5 * D * AV/L (5.3) 
The ray acquires an anomalous travel time, measured as the 
residual Tres, given hy Tres=D*AV/V. Combining the two 
equations gives 
D * AV = Tres * V = 2A * L (5.4) 

Since Tres, V, and A are known, it is possible to get an 
estimate of L. Using Tres=3 seconds, V=6.7 km/sec and Az=4° 
it is found that L=150 km. From the above equation it is 
seen that D and AV cannot be determined simultaneusly. 
However D can be estimated to be about 1500 km from fig 
5.11. Therefore the velccity pertubation must be about 1.3%. 
Since a positive velocity anomaly would give a similar 
travel time residual the velocity contrast between the 


Central Caribbean region and the Central America region is 


anout 2° to Sk. 


Since there is a reasonable amount of of seismic data 
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from direct P and S phases to depths of 2000 km it will be 
assumed that anomalous PcP or ScS travel times indicate 
possible velocity anomalies at depths of 200C to 2900 km. 
The type of velocity anomaly is indicated on the central 10° 
of the ray path (figure 5.12) and this corresponds to a 700 
km path length extending to about 300 km above the core- 
mantle boundary. A projection of the entire ray path is 
shown since the anomalies may not be restricted to the 
central part. The intersection of several ancmalous rays 
serve as a method for defining the location of the 
anomalies. The results appear to indicate that in the lower 
mantle the anomalies have shorter wavelengths than in the 
upper mantle. As mentioned earlier, bumps on the core-mantle 
boundary cannot be larger than 5 to 1C km. Since the naxinun 
scatter in the ScS-S residuals is about 7 seconds, 
variations in the elevaticns of the core cannot explain the 
results. It must be concluded for the results presented here 
that lateral velocity anomalies seem to exist in the lower 
mantle. Assuming that the anomalous region in the Caribbean 
has wavelengths of about 700 km and using a typical ScS-S 


residual of 3 seconds, the corresponding velocity 


perturbation would be 3%. 


Data contained in 4 published papers were found to be 


of value in this study. None of then had previously been 
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Figure 5.12 

A summary of all the velocity anomalies along the reflected 
rays passing under the Caribbean area. The central 10° of 
the surface projection of the ray paths are marked to 
indicate whether the velocity anomalies are positive or 
negative. . 


M Low velocity A High velocity 


146 


ae: | " ma is 
aetoedan. ro ae bobtnaces ttise! en At i 2 
no Sat Entebee gat Sanna ad “2 ee) ‘pabeas 
at hextee grb bag 7 as beie eeroar est pein a" 
19 «Svhe lege 855 Erode “eek ‘ene See oe 


RU a a Seely we 


| Wi sp 
ytieoi ae 


tn tar ne pele 


used for research in lateral inhomogeneities in the lower 
mantle. Listed in table 5.2 are the phases given, the number 
of differential residuals N, the travel time table relative 
to which the residuals were calculated and the authors. The 
first 3 studies covers a large part of the northern 
hemisphere while the fourth one focuses on a relatively 
small area in the Southeast Pacific. The map in figure 5.13 
shows ray paths projected on the surface of the earth for 


all the data in table 5.2. 


Buchbinder and Popinet used used two nuclear explosions 
listed in table 5.3 together with the average travel time 
residuals. The Novaya Zemlya event has dominantly positive P 
residuals while the Amchitka event has negative residuals 
for both P and PcP which may indicate a source anomaly. 
Mitchell and Helmberger's data for a Sea of Okhotsk 
earthquake has predominantly positive S and ScS residuals, 
also probably due to a source anomaly. In all cases the 
average differential residuals are significantly closer to 
zero than those for the ccrresponding direct phase. The area 
covered by the data involve major portions of the northern 
hemisphere and, as expected, sample correlation coefficients 
are low and do not allow one to place the anomaly uniquely 
along either the direct or reflected ray. Consequently only 
differential residuals will be used to identify anomalous 
regions anywhere in the middle and lower mantle. Since the 
data is fairly well distributed geographically the average 


differential residual for each group will be considered 
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Table 5.2 


The world-wide data. The travel time residuals are given for 
the phases shown under "Phase". N is the number of 


differential residuals. 


Phase N Travel time kase Authers 

PoP-P 102 Modified Herrin Engdahl and Johnson (1974) 
PcP,P 86 Herrin Buchbinder and Popinet (1973) 
BGS Sgr) Ub, vce Mitchell and Helmberger (1973) 


SCS,S,P\ 167, J-B Choudhury at al (1975) 
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Figure 5.13 

All the rays from the world wide travel time data. The 
entire surface projection of the ray traces together with a 
symbol marking the deepest part of the rays are shown. The 
differential residuals are marked as positive, negative or 
normal according to the definition in the text. 


A Negative 


+ Normal 


M Positive 


149 


- . 
7 a 
—_ 7 
= —_— 
ae 
—_ ~ 
= = See 
. 5 =a 
ry a u i 
eS 
— i = al 
= 
a — 
ee ies ee 
te Cees = 
me 2 5 eee 
- Son 2 i 
SS 
Pa rae 
_- Y : 
a _ “a hal 


er. 


Tt, 
pe. 1, 
> 
ff 


Yer 


ray, i 
777 


ist 


4 


By 
eas 


d 


} 
G 
* 


ox 


6 ord 


ao 
= 
a 


i} 
ecz 


J 


ss 

‘eo 
a g 
> & 
~ 


ont 
ae 
isa 


7. at 
= ; 

"|S “4 

“ ae 

Ce 4: 


at 


nt 
D 


Hs BE 
if 
ot 


eqene 
VTS = 
5 Bc 


1 


at sf 
o eh iM « 


a EA SG 
OSA 
4 


wer 


~" 


-“— 


t 


a ae 


ra) 
een gy & 


, 3 ’ 

ed ire toe 
4 iF i¢ é 
i _— ~ 
| ‘ as - 
; $s.2 ss 
4 Py J 
,? t — i 
te : ~ : ‘ 
' tes 7: 
> *? 

- — a 
ws 


Table 5.3 

The average travel time residuals (seconds) for the world- 
wide data from the northern hemisphere. The residuals given 
are for PcP (ScS), P (S) and PcP-P (ScS-S), values in 
parentesis are for shear waves. N is the number Cf 
residuals. Note that the Engdahl and Johnson data give only 


+he differntial residuals. 


Location of the event N iy PcP PcP=-P 
or the auther. 

Novaya Zemlya 52 Den 0.8 -1.3 

Amchitka 32) 109 “2.5 -0.6 

Sea of Okhotsk 10 (3.7) (4.3) (0.6) 


Engdahl and Jchnson 112 - - 0.0 
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"normal" and only data differing significantly (1.4 second 
for FcP-P and 2.3 seconds for ScS-S) from the average are 
replotted on the map in figure 5.14. There does not seem to 
be any obvious correlation between the anomalous rays and 
surface features. The differential residuals indicate that 
lateral velocity perturbations exist as a world wide 
phenomenon in the middle and lower mantle. It is also clear 
that much more data is necessary to resolve the details of 


the anomalous regions. 


Choudhury et al (1975) used short period ScS-P travel 
time arrivals from events at widely varying depths to show 
the existence of lateral inhomogeneities in the upper 250 km 
of the mantle. A calculation is made here of the ScS-S 
residuals from the published data to see if this gives any 
indication of lower mantle inhomogeneities. The data 
consists of three grcups of events all recorded at the 
Station DRV in Antarctica, (figure 5.15). The bottoming 
points of the rays, in each group, are separated up to 300 
km. Choudhury et al showed the existence of S_ velocity 
anomalies in the source region by correlating the depths of 
the events with ScS-P residuals. Events below a certain 
depth for each group did not show such a correlation and 
these are used for differential residual computations to 
search for lower mantle anomalies. The average residuals for 
the 3 groups are listed in table 5.4. The P travel time 


residuals for both depth groups show no significant 


differences between the 3 ray groups indicating that there 
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Figure 5.14 

The anomalous world-wide ray paths. 

The entire surface projection of the anomalous ray paths are 
shown. The central 10° is marked to indicate if the 
differential travel time residual is significantly larger 
(positive) or smaller (negative) than the average 


differential residual. 
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Table 5.4 
Average travel time residuals for rays in the southeast 
Pacific. Residuals (seconds) for P, S, ScS and ScS-S are 


given as a function of depth, h, (km) and location of the 


earthquake. 

Location Depth range Number P S ScS ScS-S 
Banda Sea h < 500 14 -0.6 -1.1 -2.6 -1.5 
Banda Sea h > 500 5 Nel ~2en = tee 0.8 
Fiji hi< 4500 6 -0.3 0.9 1.7 0.8 
Fiji hy 2500 Ze -1.0 <-<-2.0 -1.3 0.8 
New Hebrides h < 150 11 -0.7 362 end 0.5 
New hebrides h > 150 9 -0.6 0-5 -0.2 -0.7 
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Figure 5.15 

All the rays originating in the Banda Sea, New Hebrides and 
Fiji regions are shown. The surface projections of the 
entire rays together with a symbol marking the deepest point 
of the ray are plotted. The symbol indicates if the 
differential scS-S residual is significantly positive, 
negative or normal according to the definition in the text. 
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are no large scale lateral variations in the P velocities of 
the elastic waves. The shear wave data is much more 
Significant because we can interpret differential travel 
time anomalies of ScS and S. The average ScS and S residuals 
for the Fiji and Banda Sea group of events are almost 
identical for the deeper events. Thus, no large scale middie 
or lower mantle shear velocity heterogeneities are evident. 
Choudhury et al found a region of low S velocities to a 
depth of 150 km under the New Hebrides source region, which 
also show up clearly in the S and ScS residuals. Compared to 
rays from the two other regions the S, and to a lesser 
extent the ScS, phases are slow. This is also true for the 
deepest events in this group (maximum depth is 246 km). So 
the low S velocity zone must extend well below the seismic 
zone. The difference in the ScS-S residuals, for events in 
the deeper group, between the New Hebrides data and the two 
Other data sets must originate at a depth where the S and 


ScS rays are well separated. This must be below the Benioff 


Or subduction zone. 


For an error in focal depth of 10 km for an earthquake 
at a depth of 350 km and an epicentral distance of 50° the 


error in ScS-S differential times is only 0.3 second. An 


epicentral mislocation cf 0.19 would change the ScS-S 


residulal by 0.7 second (J-B tables). Since these values of 


mislocation are typical upper limits the largest possible 


difference in ScS-S residuals should be $093) 4° “CSS oe 


O.4(reading error)) = + 1.4 seconds. Table 5.5 shows the 
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Table 5.5 
Maximum absolute range of the ScS-S travel time residuals 
(seconds) for events in the southeast Pacific given as a 


function of the depth, h, (km) and location of the 


earthquakes. 

Location Depth range {maxq(ScS-S) - min (ScS-S) | 
Banda Sea h <"500 3.4 

banda Sea > Popphe gO 8) Veet 

Fiji h > 50C 7.4 

Fiji h < 500 6.2 

New Hebrides bhe<?150 10.1 


New Hebrides hi > 150 4,3 
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maximum absolute range of the ScS-S residuals within the 
different ray groups and figure 5.16 shows the residuals of 
the rays in the deeper ray groups as a function of depth and 
longitude of the earthquake. No obvious correlation is seen 
of the residuals with the earthquake location, but table 5.5 
shows that in all cases do the scatter in the residuais 
decrease using deeper events. This indicates that the 
fluctuations are source related. The Fiji and New Hebrides 
data show much more scatter (figure 5.16) than the Banda Sea 
data and in all cases the scatter is larger than + 1.4 
seconds. This means that small scale inhomogeneities must 
exist below the seismic zcnes at Fiji and New Hebrides, but 
possibly not below Banda Sea. Since the rays for that area 
are leaving the seismic zene at a right angle to the strike 
of the decending plate the Banda Sea data will be less 
sensitive to source inhomogeneities than the rays from the 
two other regions where the strike of the downgoing plate is 
at an angle or nearly parallel to the rays. Once again it 
must be concluded that the most likely location for these 
anomalies is along the downgoing rays close to the 


subduction zone where the rays with extreme values have the 


greatest separation. 
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Figure 5.16 


ScS-S travel time residuals for the deepest events from 
Fiji, Banda Sea and New Hebrides plotted as a function of 
depth and longitude of the earthquakes. Depths are plotted 
versus longitude (positive east) at the tails of the arrows. 
The length of the arrow is the size (sec) of the residual, 


positive if the arrow points up and negative down. 
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CONCLUSION 


The continental segments, and therefore the 
lithosphere, have been shown to be highly organized in time 
and space for the entire Phanerozoic . Only 6 to 9 major 
plates are necessary to describe satisfactorily the main 
geological events in the paleomagnetic reconstruction of the 
continents. It is difficult to conceive of an upper mantle 
convective system, or another driving mechanism, which will 
produce plates with dimensions of 60 to 180 degrees which 
are stable over a time scale of ‘several . hundred million 
years. Therefore the evidence seems to be irrefutable that 
mantle-wide convection was present. The order of the 
convective system varied very little during the entire 
Phanerozoic . A third order system was present during the 
Lower Paleozoic Era . The intense world-wide Caledonian 
Orogeny appears to have resulted from a change in convective 
pattern to a second order system. This was responsible for 
the formation cf the super continent Pangaea . The close of 
the Mesozoic Era was marked by a second transition from a 
2nd order convective systen to a 3rd order one. 
Geologically, this was also accompanied by an increase in 
tectonic activity on a world-wide basis. Finally, it is 
concluded that the ten principles for plate tectonics are a 
valuable guide for the reconstruction of the geological 
past. If further observational evidence supports them, they 


may be of assistance in modelling the Precambrian Era . 
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Numerous publications have indicated the existence of 
mantle wide lateral inhomogeneities which, all taken 
together, are difficult to explain without assuming movement 
in the mantle. This study has presented further evidence 
from seismology for lower mantle inhomogeneities of both 
large and small scale. A method of using not only 
differential travel times but also differential slowness and 
azimuth residual for core reflected phases proved useful in 
determining the location of the anomalies. On a global scale 
lateral inhomogeneities in the mantle do exist but only in 
areas with a large number of of rays sampling the mantle was 
it possible to estimate the location of the anomalies. Since 
both large and small scale seismic anomalies exist under the 
Caribbean and the anomalies in the Southeast Pacific seem to 
indicate the continuation of subduction well below the 
Benioff zone the hypothesis of mantle wide convection must 
be considered seriously. Many more studies with new station 
and array locations are necessary to establish if a world 
wide pattern of seismic inhomogeneities in the mantle is 


consistant with the hypothesis of mantle-wide convection. 


The value of seismic array studies has been established 


in two new directions. The first is the use of differential 


slowness and azimuth residuals for PcP and P phases. The 


second is the use of a covespa analysis on both vertical and 


horizontal detectors to measure the slowness and azimuth of 
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the direct P wave and the PS conversion at prominent first 
order discontinuities. As a specific application it was 
possible to to compute the dif and strike of the Moho 


discontinuity in Southern Alberta. 
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APPENDIX 1 
PALAEOMAGNETIC DATA AND CONTINENTAL MOVEMENT 


Table A1.1 


Rotation data and average unrotated palaeomagnetic 
poles for the different geological periods. The 
abbreviations are: RLAT and RLON: Latitude (positive north) 
and longitude (positive east) in degrees of the Euler pole; 
RROT: Angle of rotaticn in degrees, positive anticlockwise; 
VEL1 and VEL2: Maximum and minimum velocity (cm/year) of the 
continental segment going forwards in time from the relevant 
reconstruction to the succeeding one; LAT,LON: Latitude 
(positive north) and longitude (positive east) in degrees of 
the average pole; R: The lengh of the vector resultant of 
the poles treated as nate vectors; K: Fisher's K, see text; 
A95: Radius in degrees of a small circle centered on 


(LAT, LON), and within which the mean lies 95 % confidence. 
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Table sAte 2 


Comparable statistics for all solutions using paleomagnetic 


data. 


The abbreviations are: 


N,LAT,LON,R,K,A95: 


A1.1; FAR: Test of the significance level 


in 


As in 


percent 


the ratio of two K values in an F distibution. The 


table gives the increase 


K (preferred) /K (alternate). 


in 


precision 


for 


the 
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third 


ratio 


STATISTICS FOR OUR SOLUTICNS 
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STATISTICS FOR THE BULLARD SOLUTICN COMPARED TO OUR SOLUTION. 
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STATISTICS FOR OURS AND BARRON ET AL*S ALTERNATE GONDWANALAND 
SOLUTICN COMPARED TO OUR FREFERRED SOLUTION. 
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Table A1.3 
Paleomagnetic data used in reconstructions. 


The poles used are listed her by age and continent. Most 
poles are identified by the number (or group of numbers for 
combined entries) given them in the lists published in the 
Geophysical Journal of The Royal Astronomical Society. Thus 
the number 8.33 refers to pole 33 of list 8. Russian data 
are taken from the list published by Khramov and Sholpo 
(1967) and are prefixed by the letter R. Other poles taken 
from the recent litterature are referenced individually. 


Ne America 


Greenland 


We Europe 


Spain 
Russian Platform 


Siberia 


China 
Se America 


Africa 


Arabia 


Australia 


India 


Antarctica 


Mecos 10.463" 741525: 11.30-31; 12.45; 
13.20; 14.120; 14,1333; 14.138; 14.146; 
14.148: 
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11.024; 

10.42; 10.433 11.293 13.219; 14.142: 

R265; R.a68s R.69° Re10s 


Ottawa List - poles 11-349; 472; 473; 474; 


480; 481; 4823 4863; 487; 488; 5533 738: 
10.36-38,44: 

10, O83 Ate153 “12.577 16.136: 

8.36; 12.463; 14.125; 14.127; 14.129; 
14.1353 

1006413 10.49; R71: 

14.126: 

Two poles are averaged - Siwalik Beds, 
Wensink 1972; Deccan fraps, 13.21-24, 
14.178-181, 183- 185, and Wensink 6& 


Klootwijk 1971: 
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Pospelova et al 1968 (see McElhinny 1973): 


Zhi: 12 6667:7.03 . 12.683)" 126.695 12.976; 


yea Pes ky a 


8.49; 10.553 10.51-2, 10.5761: 


66353 14.1903 14.215; 14.227: 


9.40; 136323 14.224; 14.225; 14.226: 


10.563 10.62; 12.673; 12.71; 14.223: 


7 6 Zale, 345..035: 


T2HT SALTS - 30 


Les 


ie Sot) aad 

iA a a i 7 ; 
‘ i a we at a a 

' ’ ae a ee 
Pa ae Oe ea ce 
; 0G, ; 

: 2 ON ee 

: ied Aes 

by 

i ee ae 
we 


ae ns 


PE TP CMe  SSeak 2.8 a “eet . , Ve 


TERS eT GSTR ee | PRP hab Sheff on 
~ ‘aay cd, rae oe 
mr aot nee 
LETR AOE og haed nes ce 
ae tA Ns 


iy ci  \aeeene a 
: 4 1) 


soley’ &: apne obiwi dae aa the fi: wag ve oe 

son? efog.  <4@RE! va a hter merc ou | 1 

- 4ESeF gaakaltot esa) G0er ia te srekgeet | : 
eat UF geaeS? : 68 6 pak Soe ST 7 ee ae 

| ? ‘attagh 

gha-t2.or ahd pee or ent a 

rtsS.ue persaut “yoerser, etek | , 

eke, at sare aee BSS et | Sy at pore att. T) 


, 
va rs 
my Lf 


seh5, 00 EPR Se bbe ee seR AOL apwee . 
| REO ET FEST abated | 7 
ie sets) ste. fe 


TRIASSIC 


Ne America 


Greenland 


We. Europe 


Spain 


Russian Platform 


Siberia 


Kolyma 
S. America 


Africa 


India 
Madagascar 


Antarctica 


1.67; 5.34; 5.353 8.68; 8.69; 9.49; 9.50: 
10.88; 10.89; 10.90; 11.44; 13.393 14.278; 
14.279; 14.280; 14.285: 

THI2795: 

1.63+4.7; 1.64; 10.913; 14.292; Irving 1964 
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Ne America 


W. Europe 


Spain 


Russian Platform 


Siberia 


S. America 


Australia 
Africa 
Arabia 


India 


1.106-7; 8.95-7; 8.99; 8.1003 8.101; 


Soi 13g) Ges 9.9837 1405005; 10.119; 


10.120; 11.76; 11.78; 13.503; 13.51; 13.52: 
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9.66; 1061443; 11.64; 14.329; 1 pole from 


Athavale et al 1972 (see Wensink 1975): 
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14,392; 14.394; 14.396 poles N1,N3,N4 and 
M2 reported by Deutsch and Rao 1977: 
poles A,B,C,E,M,V,W,X and Y reported by 


Faller et al 1977: 
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W3e77; 13.783 13585; 15.142: 1 pole from 
Spali 1970; 1 pole from Al-Khafaji and 
Vincenz 1971; 1 pole from French et al 
1977: (These seven poles constitute the 
"preferred" group £0 Van der Voo et al 
1976). 
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14.4173 14.4183 14.419; 14.420; 14.421: 
14.408: 

9.132; 9.137; 12.1493; 1 pole from Creer 


and Snape 1973 «see Hailwood 174): 
T2614 7 
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APPENDIX 2 
TABLES GIVING THE CHANGE IN SLOWNESS AND AZIMUTH FOR A PLANE 
WAVE PASSING A DIPPING INTERFACE 

Table A2.1 

The first set of tables give the corrections to the P wave 
and the second set of tatles the difference in slowness and 
azimuth for the P and the converted PS wave. The 
abbriviations are: P: The slowness (sec/deg) of the incoming 
wave; Az: The azimuth (degrees) of the incoming wave; V: The 
seismic velocity (km/sec) of the medium before the 
interface; V1: The seismic velocity (km/sec) of the mediun 
after the interface; VS1: The seismic velocity (km/sec) of 
the converted phase after the interface. Strike and dip are 
measured in degrees. The first cclumn of numbers in each dip 
column is the correction to the slowness and the second the 


correction to the azimuth. 
The change in slowness and azimuth for the P phase. 
P= 5.00 AZ= 180.0 v= 8.00 Vi= 7.00 VS1= 0.0 


STRIKE DIP=0.5 1.0 Pps 
0.0 -0.00 -0.3 -0.00 -0.7 -0.00 -1.0 -0.00 -1.4 


30.0 (One 0. 3 6.02 -0.6 .0.03)-0.9 0.03 -t2 
60.0 Oma? -0.°2- “0.03 -G.3. . 0.05 -0.5 0.06 -0.7 
90.0 eco Co cCcom Of0 C.05S 6.0 “0,07, 0.0 
120.0 Geom o> «6—C 0S eC 0S OS | (Ce, 0.7 
150.9 pom offs. oO..02 0.6 0.02; 0.9% O,.03 t2 
moro -0.00 0.3 -0.00 0.7 -0.00 1.0 -0.00 1.4 
eae, = = 00701 03-0202 0.6 -0.03. 0.9 -0.048 1.2 
poet.  =0..0>. 0.2 -0.03 0.3 “0.05 0.5 -0.06 7 
moo) 002 0.0 -0.04 0.0 -0.05 0.0 <-0.07 0.0 
Bag} §6-00902 -0.2 -0.03 -0.3 -0.05 -0.5 -0.06 -0.7 
Ba0'0 }86 - 0.01 -0.3. -0.02 -0.6 70.03 -0.9 0-04 ~-1.2 
BeOnOd -0.,00 -0.°3 -0.00 -0.7 -0.00 -1.0 -0.00 -1.4 
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BP] £.00 AZ= 180.0 V= 8.00 Vi= 7.00 vsi= 0.0 


STRIKE DIP=0.5 1.0 1.5 2.0 
0.0 -0.00 -0.3 -0.00 -0.5 -0.00 -0.8 -0.60 -1.0 
30.0 0.9017 -0.2 0.02 -0.4 0.03 -0.7 0.04 -C.9 
60.0 0.02 -0.1 0.03 -0.3 0.05 -0.4 0.06 -0.5 
90.90 O02) 0.0 0.04 0.0 Us05 Ose 0.07 0.0 
120.0 O202 0.1 0.03 0.3 0.05 0.4 0.06 0.5 
150.90 Os01 ‘0.2 O.02 0.8 C202 O67? 0.04 0.9 
180.0 =0,00 0.3 <-0.00 O65 =0400 0.8 =0,00 #20 
210.0 20.0) O«2 =0.02 0.4 --0,03 O47 <0506 0.5 
240.0 eee Cet) -0.03 0.3 =0.05 O56 =O206 Cas 
270.6 aOec2, 0.0 ~—0.04 0.0° =0505 0.0 40507 O.G 
300.0 -0.02 -0.1 -0.03 -0.3 -0.05 -0.4 -0. 06 -0.5 
330.0 -0.01 -0.2 -0.02 -0.4 -0.03 -0.7 -0.04 -0.9 
360.0 -0.00 -0.3 -0.00 -0.5 <-0.00 -0.8 -0.00 -1.0 


P= 5.90 AZ= 180.0 V= 8.00 Vi= 7.00 vVS1= 0.0 


STPIKE DIP=0.5 1.0 1.5 2.0 
0.0 -0.00 -0.2 -0.00 -0.4 -0.00 -0.6 -0.00 -0.8 
30.0 CO. 01 =O.2 0.02 -9.4 0.03 -0.6 0.04 -0.7 
60.0 Ve0Z ~Oiel Ons —Oe2 0.05 -G6.3 0.06 -0.4 
90.0 C502 0.0 0.04 0.0 0.06 0.0 0.07 0.0 
120.0 Oen02 Oa 1 Cs0S ~“Oa2 0.05 0.3 0.06 0.4 
150.0 0.01 0.2 0.02 0.4 6.03 0.6 0.04 O.7 
180.0 “0.00 0.2 -0.00 0.4 -0.00 0.6 -0.00 0.8 
210.0 =O50 042. -C.02 Osh -0.03 O85 =0004 ' OsF 
240.0 =—0502 "Cet -@.03 0.2 ~0.05 043 -O806 Gad 
270.C =(.02 04.0 ~04.04 06.0 -0005 0.0 -O107 Ose 
300.0 -0.02 -0.1 -0.03 -0.2 <-0.95 -0.3 -0.06 -0.4 
330.0 =G..07 -0.2. -0.02 -0.4 -0.03 -0.5 <0. 0% <007 
36.0 -0.00 -0.2 -0.00 -0.4 -9.00 -0.6 -0.00 -0.8 
Peewos00 “AZ= 180.0 V= 8.00 .Vi= 7.00 VS1= 0.0 
STRIKE DIP=0.5 1.0 re 2.0 
0.0 ~0700)-0.2 -0.00 -O.8 <=0.00 -055 -0.00.-.7 
30.0 0.01 -0.2 03 025-053 0203-065 0.04 -0.6 
6C.0 Oe 02-0. 1 O03 Ose O.0o5=06ea 0.07 -0.4 
90.0 0.02 0.0 0.04 0.0 0.06 0.0 0.08 0.0 
T20..0 O.02 “0. 1 0.03 0.2 0.05 0.3 0.07 0.4 
1590.0 Cort Ue 2 0.02, 0.3 0.03 0.5 0.04 0.6 
180.6 Pormootw0.2 '-0.00- 0.4) =0.00 025 -0.00 10.7 
210.0 Bee OT O02 -—0,02 “0.3 --0.03) 0.5 .-0-04' 0.6 
240.0 mere Oo. 4 «6=0,.03° 0.2. 0.05 0.3 <0.06 0.4 
270.0 omoe 10.0 -0.04 0.0 —-0.06° 0.0 70.07 0.0 
300.0 SONO2t-0. 1) -0.03 =0.2 .-0.05 -0.3 “-0.'06 -0.4 
Bo. 0 me peode-0. o =0.02 =0.3" -0,03--0.5 -0.08 mere 
360.C =0L00'-0,2 °-0.00 -0.9 .-0.00+-0.5 -0.00 -G. 
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= 7.00 AZ@= 180.0 V= 8.00 Vi= 7.00 vsSsi= 


STRIKE DIP=0.5 1.0 1.5 
Oer0 -0.00 -0.2 -0.00 =-0,.3 -0.00 -0.5 
30.0 0.01 -0.1 0.02 -0.3 0.03 -0.4 
60.0 0.02 -0.1 0.03 -9.2 0.05 -0.2 
90.0 Ue02.” 0.40 0.04 0.0 9.06 0.0 
120.C C02 O..1 Ce C3" 1052 Ore Oy er ee 
150.0 0.901 0.1 O.02 1003 0.03 0.4 
180.0 =e Oe2 “0200 O63 =-G.00> 2055 
210.0 somo Oel  =Oe02) 1063) 0203": 0.4 
240. 0 =Oeve Pe =~Oe03. “OeZ =Oie05 ie? 
270.0 “0.02 0.0 -0.04 0.0 -0.06 0.0 
30C.0 Ceun Cel ““O503 —0.2 =-0.05 -0.2 
330.6 =G501 =0.1 =0.02 -0.3 =0.03 -0.4 
360.0 =Je00 =0.2 =0.0C -0.3 =-0.00 -0.5 


P= 8.00 AZ= 180.0 V= 8.00 V1= 7.00 VS1= 


STRIKE DIP=0.5 1.0 1.5 
0.0 =.00 “061 -0.00 =-0.3° =-0.00 -0.4 
36.0 OO. t= 061 0. 020-0. 9-03 -0.4 
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The difference in slowness and azimuth between the P and the 


converted PS phases. 


Pewse0O AZ=5180.0 | V= 8500 '.V1= 7.00 VSi= 4200 
STRIKE DIP=0.5 1.0 1.5 2.0 
0.0 eoe00 72.0 -0.07 -4.0 -0.02 ~6.0- -0.0d «7.9 
30.0 0.05 -1.8 0.10 3.6 0.14 5.6 0.18 7.6 
60.0 Ce 09. “1.0 Oe h8) M262 0.27 3.4 0.35 4.8 
90.6 0. 14 0.0 0.21 0.0 0.32 -0.0 0.42 -0.0 
120.0 0.09 -1.0 0.16 -2.2 0.27 -3.4 0.35 -4.8 
150.0 0.05 -1.8 Os. 10 ~3.65 9-14 -5.6 0.18 -7.6 
180.0 =Oe00 -2,.0 =-0.01 -4.0 -0.02 -6.0 -0.04 -%.9 
21¢.0 =0.05 -1.7 -0.11 -3.3 0.17 -4.8 -0.24 -6.3 
240.0 SOeU9ee te0 | —-O5 16 = 159 “=0,28 =2.7 -0537 ~=354 
270.0 -0.10 0.0 =O orca 0.0 -0.31 0.0 -0.42 0.0 
300.0 =Oe097e%.0 30.98001.918-0.28 257% $0537 3.24 
330.0 SOe0o Vet ~Oet1 34.3. 70.17 4.8 —-0. 24. 16.3 
360.0 sOe00s- 2.0 -0.010 4.0 -0.025 6.0; -0.049 7.9 
= 4.00 AzZz= 180.0 V= 8.00 V1= 7.00 VS1= 4.00 
STRIKE DIP=0.5 1.0 1.5 2-0 
0.0 =6,00 -1.5- -0.01 3.0 -0.02 -4.5 -0.03 »6.0 
30.0 O5.05 “153 0.90 § 267 0.15 4.2 0.19 5.6 
60.C 0.09 0.8 0.18 1.6 Oa27 e225 0.36 3.5 
90.0 OT «0.9 On 24 605.0 0.32 -0.0 02-43 -0.0 
120.0 0.09 -0.8 C.18 -1.6 0.272 -2.5 0.36 -3.5 
150.0 0.05 -1.3 0.10 -2.7 0.15 =-4.2 OeN9-=S56 
130.0 -0.00 = 5 -0.01 -3.0 -0.02 4.5 -0.03 -6.0 
210.0 —O205 =1.8 .=06.91 -265 <=0.07 -367  -Os223 She? 
240.0 me 098= 0,7 2-0. 18 led =0028 ~2.1 =Os 37 =2e7 
270.0 Somit 0-0-0021. 0.0 0532 0.0 0.82 Wee 
300.0 =oe09bnO. 7 30.29001.0%7-0.28 25te s0087) 2.7 
330.90 Oeoee eS) -Otl 2eb re Cal Sel --UeZo ed 
360.0 SOe00h 1.5 -0.010 3.0 “-0.025 4.5  -0.039 6.0 
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APPENDIX 3 


THE EULER ROTATION 


Euler's theorem states that a general displacement of a 
rigid body with one point fixed is a rotation around some 
axis through that point. In the case of the earth the fixed 
point is the center. The vector R around which the rotation 
ROT degrees is performed intersects the surface at a point 
(LAT, LON) (latitude and longitude in degrees, positive north 
and east) called the Euler pole. Using a cartesian 
coordinate system and setting the earth's radius to one, a 
point on the surface with radius vector x = (XX 50% 3) can 
be written | 

a sin(90-xlat) * cos(xlon) 
= sinq90-xlat) * sinyxlon) (A3. 1) 
= cos(90-xlat) 
where xlat and xlon are the latitude and longitude of the 


point. The Euler rotation of the point can then be written 
y = A x (A3. 2) 
where y is the new vector of x and A is the transformation 


Matrix. In terms of (LAT,LON,ROT) A is given by (Jeffreys 


and Jeffreys (1946) ) 


Ctn, 2* (1-C) fea, © (ITC) onc h *n, *(1-C) +n, *5 
Nn, *n5* (1-C) +n3 *S C+n, 2%*(1-C) Ny *n3*(1-C) -n,*S (A3. 3) 


n3*n,*(1-C)-n5*S  nj*n3*(1-C) +n] *S — C#N 32% (1-C) 


where R = (Dj ¢hoeD3)e c = cos(ROT) and S = sin(ROT). The 
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direction cosines Nin, and ny are determined from 
(LAT,LON). Rotations were performed using the above 
formulation for A and equation (A3.2). When several 
subsequent rotations take place the resultant transformation 
matrix is calculated by multiplying together the individual 
Matrices. It is also nescessary to be able to invert the 
resultant matrix A in terms of (LAT,LON,ROT). From equation 
(A3.3) it is seen that the trace of A is 1+ 2 * cos(ROT) 
and the angle of rotation can therefore be determined as ROT 
= tarcos((a,,+ ao + a33 )/2).- The sign depends on the 
hemisphere chosen for the pole. Since R is fixed the 
following must hold ; 

Bag & g<k 


R = 


Io 


(4.- 


ft 
= 
% 


where E£ is the unit matrix. The sysem of linear equation to 


find R are 


ADOT 1) * nh, + a5 * no + a)3 * 13 = 0 
= x = 0 A3.4 
aod * ny & (a55 1) *n. + ao3 n. ( ) 
€ - 1) * n, = 0 
Bey “chy futgse veto (235 net! 3 


where aig (i = 1,2,3 and j = 1,2,3) are the elements of A 


This homogeneous systen can only be solved for ratios of 


Nie Do and D 36 The system 


a>, * (n, /n3) re (ao9 7 Ly * (n,/23) = 7a53 (A3.5) 
will give n,/2, and nj/n3 as 
(A3.6) 


n,/23 a A, /A3 and no/n3 = Ao/A3 
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where Ave A. and A, are the determinants of (A3.5). From 
(A3.1) and (A3.6) it is seen that 

(N5/N3)/(n)/D3) = Ay/A, 

LON = artan(no/n,) . q{A3.7) 


and COLAT = (90 -LAT) is 


COLAT = arctan ( (n,/n3)2 + (n/n) 2)) 


arctan ( (A, ? + A,?*)/ A?) (A3.8) 
There are two possible poles of rotation; One in the 
northern and one in the southern hemisphere. A usefull 


FORTRAN function is ATAN2 (x, y) = arctan(y/x) which 


determines which quadrant the point (x,y) is in. Thus (A3.7) . 


can be written 

LON = ATAN2(A,/A3,A,/A 3) (A3.9) 
and the pole can now be either in the northern or southern 
hemisphere. By chosing ROT to be positive it is then 
possible to fix (LAT,LON) to either hemisphere by 
Calculating an A from the inverted values of (LAT,LON, ROT) 
and compare to the original A . In the actual calculations 
other considerations must be taken. If ROT = 0 then A=E, 


A. = A. = A. = 0, and (LAT,LON) are undefined. COLAT = 90° 


3 


Ay Boers A, = 0 and LON must be calculated 


differently. Using 


also gives 


(cos (LON) )2 * «(1 - cos(ROT)) +¢ cos (ROT) 


aba 
gives 


arcos { (255 - cos(ROT))/(1 - Cos (ROT) ) 


LON 


The sign of LON can be determined from 


= - s + n * sin (ROT) 
aon any * Bo * (1 cos (ROT) ( 
(sin (COLAT))@ * sin(LON) * cos (LON) 
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= sin(LON) * cos (LON) 


Thus ai? and LON have the same sign. The last 


complication 
which can arise is when COLAT = 0 giving AD TAD 0. Since 
the pole is at the North Pole, LON can be given any 


arbitrary value. 
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APPENDIX 4 
MINIMIZING THE CONTINENTAL MOVEMENT 
The present day map cf landmasses (bounded by 500 fathon 
lines) were divided into a number of equal area segments, 
each represented by one point. A total of 625 points were 
used. To calculate the minimum movement for a continental 
segment from period A tc feriod B, the Euler rotation (pole 
and angle of rotation(LAT,LON,ROT)) was found from the Euler 
rotations from the present to A and the present to B. The 
ovement from A to B for a continental segment is then 
carried out by rotating it by an angle ROT around the point 
(LAT,LON). Each point belonging to the continental segment 
is then moving along a small circle with radius D calculated 
as the distance fron the point to (LAT,LON). The 
displacement along the small circle is ROT * sin(D) degrees. 
Continent B could then be moved a specified number of 
degrees of longitude. The new resultant movement 
(LAT,LCN, ROT) for each segment is calculated and the sum of 
the squares of the distances found for each equal area 
point. A minimum in the sum of the squares of the distances 
as a functicn of longitudinal movement was found and the 


corresponding minimum and maximum velocity ot the 


continental segment was calculated. 


PAE 


hotest (C0. axa ‘bebmued) aS Bea . 
SUS aPOa AOMS inene 2) xeon: ‘aarat te 
exyee arateg OG ae Latod é tog) sao ws eS 
Leveenboden 6 602 taempyoa apatote ene pee 2 I 7 
cide, nobbaget corks: Rad & battey ot Bh ‘Qokeq. 
reiet ods BOTE hart 3° ‘eae .coyaos fates aoa _ 
okt 8 we Inegeay oes Par é cS, tageead pat) ed } ’ 
cake Bk oteeepee Latdacttaoo 7} ie 0 
sake oF banogs TOR ab pas as ‘ = a bie ‘ 
tresren Laesegndé sao ond 09 pntkoab ine datos, 38d: 9 
so Telucten: Gap bbiem Aake sleaas anaes, 6 grote Cad 
GAT «(ROL TEE OF PHAGE ria wx wean 
8982) ooh (apate + TOR es niodip. ileee ae poole. 
Yo sedene Oeibioeee 96° PeveR " pede bio bal 
tip merce tas tiseey wea edt. -ofwdtpnol | r 298 " 
te pee ads Dee fisantockuc at: Er dase apt “(SOR ND: . 
a Deeps HGS BOR han? ‘aapassa th on? 20 | comnens 


¥ ‘ie ae 
a ff 


cenaaeet hb ait. to peso pe wd? 20’ BOR oft wk seainbe, At ke 


ae Via 
od* SBo8 Bure? aay PASHoOVOS ‘oartotignel 96, ao ksoaat rae 
\ oe ye ‘17 - " 
wis ho anne suet 6m “has went ‘potbaoqnes? 
? ayy 6 lpmb allay Et aoe yeouyoe Soanenty “ 
nan ; ye 
‘ | iccediates a ae 7 Le 


APPENDIX 5 


THE PROGRAMS 


The main programs are listed first and at the end all 


the subroutines are given in alphabetical order. 


QAGANIAANINAANAANNANANANAAANANAANAANANAANANAANANANANAARAARAAD 


CALCULATION OF TRAVEL TIMES, DISTANCES, APPARENT 
VELOCITIES FOR FOR ANY NUMBER OF STATION 
EVENT COMBINATIONS AND FOR UP TO 39 DIFFERENT SEISMIC 
PHASES. THE INPUT IS MADE EASY BY HAVING 3 LIBRARIES OF: 
1: STANDARD STATION COORDINATES 
2: EVENTS 
3 TRAVEL TIME TABLES 
INPUT IS ONLY THE PHASE NAME, THE STATION IDENTIFIER AND 
AND AN ASSIGNED EVENT IDENTIFIER. 
THE OTHER INPUT AND OUTPUTS ARE: 
4: INPUT OF STATION AND EVENT IDENTIFIERS 
5: CHOSEN PHASES AND PROGRAM PARAMETERS 
6: OUTPUT OF ALL THE CALCULATIONS ARRANGED AS THEY 
PROCEED, THAT IS FOR ONE PHASE AT A TIME. 
7: OUTPUT OF THE DATA IN CONCENTRATED FORM AND 
SORTED OUT SO ALL RELEVANT DATA FOR ONE STATION- 
EVENT COMBINATION IS TOGETHER. OUTPUT IS FORMATTED 
TO FIT 2 LIBRARY CARDS. 


Be LAW SCRATCHOEILE 


STATION LIBRARY: INFORMATION ABOUT THE STATIONS USED. ONE 
STATION FOR EACH LINE. THE INFORMATION IS STATION 
IDENTIFIER, LATITUDE IN DECIMAL DEGREES (*NORTH), 
LONGITUDE IN DECIMAL DEGREES(+EAST), ELEVATION IN KM AND 
ALPHA NUMERICAL STATION INFORMATION. A BLANK LINE 


INDICATES END OF DATA. 
FORMAT (2X,A4,4X,3F10.0,12A4%) 


ab 
te 


EVENT LIBRARY: INFCRMATICN ABOUT THE EVENTS, ONE EVENT 
FOR EACH LINE. THE INFORMATION IS DAY, MONTH, YEAR, HOUR, 
MINUTE, SECOND, LATITUDE(+NORTH), LONGITUDE(+EAST), DEPTH 
(KM), MAGNETUDE, COMMENT, EVENT IDENTIFIER, EVENT NUMBER, 


EVENT LOCATION. 
FORMAT (513, 3F 100 3¢F4e 0g F4s 1¢6Aly 1X,A4,2X,A4, 12A4) 


i) 
oe 


TRAVEL TIME LIBRARY: CONTAINS TRAVEL TIME TABLES WITH 
J-B FLLIPTICITY CORRECTION TABLES, AND CORRESPONDING 


SURFACE VELOCITIES (KM/SEC) - 
1. LINE: NAME OF PHASE AND NUMBER OF REFLECTIONS, E.G. 


wW 
ee 
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PPP 3 FORMAT (2X,A4,2X,11) 

ZeoLINE: DDELIAND I< FORMAT (F5.2,I4) 

DDEL: INCREMENT IN EPICENTRAL DISTANCE (DEGREES) 
IN TRAVEL TIME TABLE, 
3 Les INITIAL DISTANCE IN TRAVEL TIME TABLE. 

3. LINE: A GROUP OF LINES GIVING THE TRAVEL TIMES. 

EACH LINE CONTAINS TRAVEL: TIMES FOR ONE 
DISTANCE AND 14 DEPHTS. INPUT COME IN ORDER 
OF INCREASING DISTANCE AND THE TRAVEL TIMES 
ARE GIVEN IN MINUTES AND TENS OF SECONDS. 
FORMAT (14(12,13)) 

A BLANK LINE INDICATES END OF TRAVEL TIME 
DATA. 

4 GROUP OF LINES: 2 LINES GIVING THE J-B ELLIPTICITY 
CORRECTIONS FOR THE FUNCTION F(DISTANCE) FOR THE 
DESTANCES 0,105,200 0cccecces 180 DEGREES. 

FORMAT (10F6. 3) 


NEXT LINE: NEAR SURFACE VELOCITY OF THE CORRESPONDING 
PHASE. 
FORMAT (F6. 3) 


THE ABOVE GROUPS OF CARDS CAN BE REPEATED FOR ANY 
NUMBER OF PHASES. THE ORDER DOES NOT MATTER. THE 

LAST LINE IN THE FILE MUST BE THE WORD SLUT, 

FORMAT (2XA4). THIS IS TO ENSURE THAT IF A CHOSEN PHASE 
IS NOT FOUND AT THE END OF THE TABLE, THE READING 

WILL START FROM THE BEGINNING AGAIN, THUS READING 

THE WHOLE TABLE. 


INPUT OF STATION AND EVENT COMBINATIONS FOR 

THE DISIRED CALCULATIONS. THE REASON THAT THIS 
INFORMATION IS READ FROM A SEPARATE FILE IS 

THAT THE SAME SET OF STATION-EVENTS THEN CAN 

BE USED FOR ALL THE DIFFERENT PHASE CALCULATIONS 
BY REWINDING THE FILE. 4 CAN BE A TERMINAL OR 
CARDS WHEN VERSION "CHEAP" IS USED. SEE BELOW. 


VERSION "CHEAP": 
1. GROUP OF LINES: EACH LINE CONTAINS A CHOSEN 


STATION IDENTIFIER AND THE CORRESPONDING 
SURFACE VELOCITY. IF THE VELOCITY IS ZERO 
THE DEFAULT SURFACE VELCCITY FOR THE 
CORRESPONDING PHASE (READ FROM INPUT 3) 
IS USED. A BLANK LINE INDICATES END OF 
STATIONS. 

FORMAT (A4,F10.0) 

Ze oGROUP: OF LINES: ONE LINE GIVING THE EVENT 
IDENTIFIER AND EVENT NUMBER. 
FORMAT (A4, 1X ,A4) 

IN VERSION "CHEAP"™ CALCULATIONS ARE ONLY MADE 
FOR ONE EVENT AND A NUMBER OF STATIONS AND 
PHASES. THIS VERSION IS CONSIDERABLE CHEAPER 
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IN TERMS OF CPU TIME THAN THE STANDARD 
VERSION, WHICH CAN CALCULATE THE TRAVEL TIMES 
FOR ANY COMBINATION OF A NUMBER OF PHASES, 
STATIONS AND EVENTS. THIS INVOLVES READING 
FILE 1, 2 AND 3 FCR EACH NEW EVENT USED. 


STANDARD VERSION: 


1. 
2e 


3. 


4. 


GROUP OF CARDS: AS IN VERSION "CHEAP", 
GROUP OF LINES: ANY NUMBER OF LINES 
SPECIFYING THE EVENT IDENTIFIERS. 

SAME FORMAT AS IN VERSION "CHEAP" A BLANK 
LINE INDICATES END OF EVENTS. 

GROUP OF LINES: ANOTHER SET OF STATIONS AND 
EVENTS CAN BE READ IN. 2 BLANK LINES 
INDICATES END OF INPUT OF STATIONS-EVENTS 
COMBINATIONS. 


LINE: CHEAP, NL 
CHEAP: VERSION "CHEAP" IS USED 1F THE 
INPUT IS THE WORD "CHEAP 8 
NL: IF DIFFERENT FROM ZERO DATA IS 
WRITTEN OUT ON UNIT 6. 
FORMAT (A8,110) 

AND 3. LINE: PHASES FOR WHICH TRAVEL TIMES 
ARE CALCULATED. UP TO 39 DIFFERENT 
PHASES CAN BE USED. 4 BLANKS INDICATE 
END OF PHASES. 

FORMAT (2CA4) 


IF VERSION "CHEAP" IS USED THE PHASES MUST 


BE READ IN IN THE SAME ORDER AS THEY 


APPFAR IN THE TRAVEL TIME TABLE (INPUT 3). 
IN THE STANDARD VERSION THE ORDER DOES NOT 
MATTER, BUT THE RUNNING COST CAN INCREASE 


UP TO 100% IF THEY ARE NOT IN ORDER. 


LINE : JCODEs 
JCODE=1: GEOCENTRIC LATITUDE IS USED TO 


COMEUTE DISTANCES. 


JCODE=0: BULLEN*'S SEISMOLOGICAL LATITUDE 


IS USED TO COMPUTE DISTANCES. 


OUTPUT: SELF EXPLANATORY. 


LMOST THE SAME OUTPUT DATA AS 6, BUT 
ni) FO aRRG SUITABLE FOR PRINTING ON LIBRRARY 
FOR PRINTING LIBRARY CARDS USE RHE FOLLOWING 
COMMANDS: 

SIGNON XXXX FORM=LK RIBBON=SC 
SET LINECNT=66 
GGOpyY FILE? TO *PRINT* 
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NOTE ABOUT THE OUTPUT: IF THF EPICENTRAL DISTANCE EXCEEDS 
THE DISTANCE IN THE TRAVEL TIME TABLE, ZERO'S WILL BE 
INSERTED FOR ALL CUTPUT VALUES CALCULATED USING THE 
TRAVEL TIME TABLE, 
8: SCRATCH FILE. 
AN EXAMPLE OF A RUN DECK 
SIGNON HAVS PRIO=D TIME=25S P=80C RETURN=PHYS 
CRE -P SIZE=80P 
RUN TR#LIB 1=STATION 6=-PK 2=EVENT 3=T 4=-ST 7=CARD1 8=-P 
CHEAP 
P PKP S' SKS PP SS P-=P S=P PCP PCP2SCP PCS PS SP P-S S=S SCS 
DIMENSION FT(200),FG(200), TSUR (200) 
DIMENSION DEL (200) ,AZ(200) ,AZE(200) 
INTEGER ZERO/* '/,ST, STA(200) 
DIMENSION SLDEL (200), TP (200) , DT (200) , ELEVA (200) , VELOC ( 
*200) 


DIMENSION FLT (2) , FLG(2) 
DIMENSION FLAT (2) , FLONG(2),GLAT (2) ,CLAT(2) ,SLONG(2) ,CL 
*ONG (2) 
DIMENSION A(2),B(2) ,C(2) ,COSZ (2) »SINZ(2) »Z (2) 
7, LT (2) ;GLT(2) ,LG(2) ,GLG(2) . 
2SGLAT (200) ,CDEI (200) , XMIN (14) ,XSEC (14) , RECORD (20) 
DIMENSION BLAT (2) ,AS(2),BS(2) ,CS (2) ,CLAS (2) 
DIMENSION ELLIP (19) , TCELL (200) 
REAL LAT(50C) , LON (500) , HI (500) 
DIMENSION SLOC(300,12) ,SSLOC (300,12) 
COMMON TA(14,201) , IDEP (14) 
INTEGER PHAS (40), NSTA(500) ,PPHA, SLUT/* SLUT" /, CHO, NCOUN 
*T (50) 
REAL*8 CHEAPP,CHEAP/*CHEAP °¢/ 
702 FORMAT (2X,A4,2X,11) 
703 FORMAT(2X,A4,4X,3F10.0,12A4) 


704 FORMAT(*0*,1X,A4,* LAT=",F10.2," DEG ¢, "LONG=",F10. 
*2," DEG 
10,8 ELEV.=',F5.3,' KMe VELe= ',F5.3," KMe/SEC. *%,6A 
*4) 


705 FORMAT (513, 3F10.3,F4-.0,F4.1,6A1, 1X, 12A4) 
706 ome EVENT',13,' DAY,MON.,YR.= ',313," TIME= 
fe Toy’ Ake? 
feo teM EN, *5 F522," SECs 
*= Le 
iy. 27 ee DEG.) 
107 FORMAT (*O*,° DEPTH= Pa hs ra 8 KM. 
*,3X,12A4 
708 Pavxntean, « STATION SEISMIC DIST. (DEG) GEOC. 
*DIST. (DEG) 


LAT.= ',F6.2,' DEG. LONG. 


MAG.= *,F4.1,3X,6A1 
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1GEOC. DIST. (KM) GEOC AZ.(EP) GEOC. AZ. (ST) *) 

ey teat ne okt Poe te8Ee F823, 6L¢E9.2¢ 6,57. 27 5KeF 

711 FORMAT (F5.2, 314) 

712 FORMAT (1414) 

713 FORMAT(14(F2.0,F3.1) ,A4,F4.1,A2) 

714 FORMAT (I3) 

715 FORMAT(*O0*,* BULLEN SEISMOLOGICAL LATITUDE USED TO COM 
*PUTE TIMES®) 

716 FORMAT(*O',* GEOCENTRIC DISTANCES USED TO CALCULATE TR 
*AVEL TIMES®) 

717 FORMAT (10F6. 3) 

718 FORMAT('C',1X,"STATICN DAY HR. MIN SEC. PHASE TIME 
*xELLIP. CORR 
1. SURF. CORR. DT D DEL(SEC/DEG) APP. VEL(KM/SEC) ANG. 
*OF INC. : 
*PHASE,CP,CS*) 

TASUPORMAT (909), 2X KG) 2X ,73),92,13, 1X, 132k ,F6s 2, 1X, PG. 2, 4K, 
*PF6.2,8X,F6.2 
1, 8X, FO. 2, 40K, P6.2,2%,4F7~1) 

720 PORMAT(*O*,* TRAVEL TIMES IN ERROR‘) 

721 FORMAT (F2.0,F3.1,13F5.1,A4,F4.1,A2) 

722 FORMAT( "0", *DDEL= ',F5.2," L= ',I4," MODE= ',1I4) 


724 FORMAT(///2X,A4," TRAVELTIMES*/j 
725 FORMAT(/*®HASE *,A4,* NOT IN TRAVEL TIME TABLE! /) 
728 FORMAT(///*NUMBER OF PHASES POR WHICH TRAVELTIMES ARE! 


g 


** CALCULATED',1I5,/* NUMBER OF TRAVELTIMES CALCULATED FO 
xRE, 
*€ BACH PHASE',15//) 


735 FORMAT (A4,F10.0) 

750 FORMAT (20 (A4)) 

755 FORMAT(A8,110) 

760 FORMAT(*STATION ',A4,* NOT FCUND IN LIBRARY‘) 

751 FORMAT (60X,A4,2X,A4) 

752 FORMAT('*EVENT WITH SOURCE ',A4," AND NUMBER ',A4,* NOT 


*FOUND IN EVENT LIBRARY') 


753 FORMAT (*NUMBER OF STATIONS IN LIBRARY',15) 


MDE = 0 
INPUT OF PHASES PHAS(-) FOR TRAVEL TIME CALCULATION. 


III COUNTS THE NUMBER OF PHASES SFARCED FOR THE TRAVEL 
TIME TABLE 


MINUS CHO IS NUMBER OF PHASES NOT FOUND IN TRAVEL 
TIME TABLE 


CHO=0 

TSLUT=0 

TT =0 

READ (5, 795) CHEAPP, NL 

READ (5,750) (PHAS(I) -1=1,40) 
READ(5, 714) JCODE 
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GO TO 401 

REWIND 3 

ISLUT=ISLUT+1 
IF(ISLUT.EQ.2) GO TO 415 
GO TO 400 
WRITE(6, 725) PHAS (III) 
ISLUT=0 

CHO=CHO-1 

TTeSTI T+ 1 

REWIND 4 


END OF PHASES 


IF (PHAS (TII) .EQ.ZERC) GO TO 930 
NNN=0 
KEPIC=1 


INPUT OF TRAVEL TIME TABLE 


460 


811 
812 
814 


815 


813 
818 
879 


830 


831 


READ (3,702) PPHA 

IF (PPHA.EQ.SLUT) GO TO 402 
IF(PPHA.NE.PHAS(III)) GO TO 400 
WRITE(6,724) PPHA 

BACKSPACE 3 

READ (3,702) PPHA, NMN 
READ(3, 711) DDEL,L 

MDE=0.0 

MODE=0 

IF (NL.NE. 0) WRITE (6, 722) DDEL, L, MODF 
READ (3,712) (IDEP(1ZK) ,IZK=1,14) 


IF (MODE) 830,812,830 

READ (3,713) (XMIN(I) ,XSEC (1) ,1=1,14) , PHASE, DEG, JB 
DONS 14 T=4, 14 

TA (I, 1) =XSEC (I) +XMIN(I) *60. 

CONTINUE 

J=1 

READ (3, 713) (XMIN(I) ,XSEC (I) -I=1,14) ,PHA,DE, JC 
CHECK IF CARD IS BLANK SIGNALLING END OF PHASE DATA. 
IF (XSEC (1) +#XMIN(1)) 813,840, 813 

J=J+1 

JMAX=J 

DO 819 I=1,14 

TA (I,J) =XSEC (I) #XMIN(T) *60. 

CONTINUE 

GOeTOV S15 

READ (3,721) XMIN(1) -XSEC (1) ¢ (XSEC (I) ,-I=2,14) , PHASE, DEG, 
*JIB 

TA (1,1) =XSEC (1) +XMIN(1) *60. 

DO 831 I=2,14 

WAT, 1) =TA (1, 1-XSEC (1) 

CONTINUE 
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832 READ(3,721) XMIN(1) ,XSEC (1), (XSEC(I) ,I=2, 14) ,PHA, DE, JC 
IF (XSEC (1) +XMIN(1)) 833,840,833 

833 J=J3+1 
JMAX=J 

836 TA(1,J) =XSEC (1) €XMIN(1) #60. 
DO 839 I=2,14 


IF PHASE DEPTH CORRECTION IS ZERO, PHASE DOES NOT 
EXIST, SET TA=C. 


QOS) 


IF (XSEC (I)) 837,837, 838 
837 TA(I,J) =0.0 
GO TO 839 
838 TA(I,J)=TA(1,J3-XSEC (I) 
839 CONTINUE 
GO TO 832 
840 CONTINUE 


READ ELLIPTICITY CORRECTION IN SEC/KM AT 10 DEG 
INTERVALS FROM 0 180 DEGREES. 


(ak fe) ye 


READ (3, 717) (ELLIP (1) ,I=1, 19) 


READ SOUFACE CORRECTICN VELOCITY FROM TRAVEL TIME TABLE 


OL@ar@ 


READ (3,717) VVELO 
IF((ITII+CHO).GT.1) GO TO 75 
T=0 

70 T=I+1 


Cc INPUT OF STATION LIST 


READ (1,703) NSTA (I) , LAT (I) -LON(I) ,HI (I), (SLOC (I,J) ,J=1, 
*12) 
IF(NSTA(I).EQ.ZERO) GO TO 71 
NNST=I 
GO TO 70 
71 WRITE(6,753) NNST 
GO TO 2003 
75 CONTINUE 
IF (CHEAPP.EQ.CHEAP) GO TO 303 


2003 N=0 
4 READ (4, 735) ST, VELC 
IF(ST.EQ.ZERO) GO TC 206 
C 
C FINDING THE CHOSEN STATION IN THE LIST 
Cc 


CALL LOOK1(NNST,ST, NSTA, INDEX) 
IF(INDEX.FQ.0) GO TC 20 

N=N+1 

FT (N) =LAT (INDEX) 

FG (N) =LON (INDEX) 

STA (N) =NSTA (INDEX) 
ELEVA (N) =HI (INDEX) 
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DO 277 J=1,12 

277 SSLOC (N,J)=SLOC (INDEX, J) 
TF{VELO.EQ.0.) VELO=VVELO 
TPO NDE) SEO.) VELO = VELO)* 04.576 
VELOC (N) =VELO 
gah (NE NE. 0) WRITE (6,704) STA(N) ¢PT (MN) ¢FG(N) ¢ ELEVA (N) , VEL 
GO TO 4 

20 WRITE(6,760)ST 
GOeTomd 

206 CONTINUE 


M IS CURRENT NUMBER OF OBSERVATORY FOR WHICH DISTANCES 
ARE BEING COMPUTED. 
207 M=1 
REWIND 2 
INPUT OF EVENT FROM FILE, NSO AND NNO ARE THE IDENTIFIERS 


READ (4, 765) NSO, NNO 
765 FORMAT(A4,1X,A4) 
IF(NSO.EFQ.ZERO) GO TO 305 
310 READ(2,751)ISO,INO 
IF(ISO.EQ.ZERO) GO TO 300 
IF(ISO.NE.NSO) GO TO 310 
IF(INO.NE.NNO) GO TO 310 
BACKSPACE 2 
READ (2,705) ID, IM, 1Y,1H,IN,RSEC,FLT(1) ,FLG(1),RDP,RMG,S 
*1,52,53,54,8 
15,S6, (RECORD (1) ,1=1,12) 
GO TO 303 
305 CONTINUE 
IF(CHEAPP.FQ.CHEAP) GO TO 401 
READ (4, 750) NSO 
IF(NSO.EQ.ZERO) GO TO 401 
BACKSPACE 4 
GO TO 2003 
300 WRITE(6,752) NSC,NNO 
GO TO 207 
303 CONTINUE 
IF(NL. NE. 0) WRITE(6, 706) KEPIC, 1D, IM, 1Y,IH,IN,RSEC, FLT (1 
xj 5 FLG 1 
THI ONtLSHe20) WRITE (65707) RDP) RNG; $1,52,S3,50,55, 56 
*, (RECORD (I) ,1=1,12) 
302 FLAT (1) =FLT(1) /57.295778 
FLONG (1) =FLG (1) /57- 295778 


COMPUTE GEROCENTRIC LATITUDE OF EARTHQUAKE 


GLAT (1) =ATAN (0.993277* (SIN(FLAT (1) ) /COS (FLAT (1)))) 


EGLAT=GLAT(1) 

CLAT (1) =COS (GLAT (1) ) 
SLONG (1) =SIN(FLONG(1)) 
CLONG (1) =COS (FLONG (1)) 
A (1) =CLAT (1) *CLONG(1) 
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203 
204 


205 


66 
77 


B(1) =CLAT (1) *SLONG (1) 
C1) =SIN (GLAT(1)) 


CALCULATE SEISMOLOGICAL LATITUDE OF EARTHQUAKE 
FOLLOWING BULLEN. 


BLAT (1) =1.1*GLAT (1-0. 1*FLAT (1) 
CLAS (1) =COS (BLAT (1) ) 

AS (1) =CLAS (1) *CLONG (1) 

BS (1) =CLAS (1) *SLONG (1) 
CS(1)=SIN (BLAT(1)) 
IF(M-N) 204,204,301 

FLT (2) =FT (M) 

FLG (2) =FG (M) 

ST=STA(M) 

FLAT (2) =FLT (2) /57.295778 
FLONG (2) =FLG (2) /57.295778 


COMPUTE GEOCENTRIC LATITUDE OF STATION FROM GEOGRAPHIC 


LATITUDE 


GLAT (2) =ATAN (0.993277* (SIN (FLAT (2) ) /COS (FLAT (2)))) 
CLAT (2) =COS (GLAT(2)) 

SLONG(2) =SIN(FLONG(2)) 

CLONG (2) =COS (FLONG (2)) 


COMPUTE EPICENTRAL DISTANCE, DELTA. 
A (2) =CLAT (2) *CLONG (2) 


B (2) =CLAT (2) ¥SLONG (2) 
C (2) =SIN (GLAT(2)) 


COMPUTE BULLENS SIESMOLOGICAL LATITUDE OF STATION, BLAT(2). 


BLAT (2) =1. 1*GLAT (2-0. 1*FLAT (2) 

CLAS (2) =COS(BLAT(2)) 

AS (2) =CLAS (2) *CLONG (2) 

BS (2) =CLAS (2) *SLONG (2) 

CS (2) =SIN (BLAT (2) ) 

SCOSD=AS (1) ¥AS (2) +BS(1) *BS(2) CS (1) *CS (2) 
SSIND=SQRT(1.-SCOSD**2) | 
SDEL=57. 2957 78*ATAN (SSIND/SCOSD) 
TE(SDEL)66,77,77 

SDEL=SDEL+180. 

COSDT=A (1) ¥A (2) +B (1) *B (2) #C (1) ¥C (2) 
SINDT=SQRT(1.-COSDT**2) 

DELTA=57. 295778*ATAN (SINDT/COSDT) 
IF(DELTA) 6,7,7 

DELTA=DELTA+180. 


CALCULATE AZIMUTH,AZ, AND BACK AZIMUTH, AZE. 


XI=B (1) *C (2-B (2) *C (1) 
XJ=A (1) *C (2-A (2) ¥C (1) 
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XK=A (1) *B (2-A (2) *B(1) 
DO 8 I=1,2 
COSZ (I) =~ (XI*SLONG (1) #XJ*CLONG (I) 


Y/((- 1.) **I*SINDT) 


SINZ (I) = (~ ((- 1.) **I/CLAT(I)) *XK) /SINDT 


Z (I) =57.295778*ATAN (SINZ (I) /COSZ ( 
IF (COSZ(1I))9,10,10 
9 Z(1) =Z (1) +180. 
OTL P(22))211,8,8 
1 Z(I) =Z (I) +360. 
8 CONTINUE 
IF (FLT (2) .EQ.-90.00)GO TO 500 
GO TO 208 
0 DELTA=57. 295778*ATAN((SQRT(1.-C (I 
Trent OLL TA) D0 1,502,502 
1 DELTA=DELTA+180. 
2 Z(1) =180. 
IF (FLG(1))503, 504,504 
3 Z(2) =360.+FLG (1) 
GOUTO 5208 
“ -Z/(2) =FLG (1) 
IF (NL.NE. 0) WRITE(6,555) 
FORMAT (///) 
8 DEL(M) =DELTA 
SLDEL (M) =SDEL 


DEL (M) =GEOCENTRIC EFICENTRAL DIST 
SLOEL(M)= SEISMIC LATITUDE EPICEN 


AZ (M) =Z (1) 
AZE (M) =Z (2) 
SGLAT (M) =GLAT (2) 


CHOOSE NEXT STATION AND CALCULATE 


M=M+1 
GO TO 203 


I)) 


)#*2))7 (-C(t))} 


ANCE IN DEGREES. 


TRAL DISTANCE IN DEGREES. 


DISTANCE AGAIN. 


1 CALL DEGKM(N, EGLAT, SGLAT, DEL,CDEL) 


SUBROUTINE DEGKM COMPUTES GEOCENTPIC DISTANCE,CDEL, IN KM. 


IF(NL.NE. 0) WRITE(6, 708) 
DO 17 I=1,N 

IF(CHEAPP.EQ.CHEAP) VELOC (I) =VVEL 
IF (NL.NE. 0) WRITE (6,709) STA(I) »SLD 
*AZ(I),AZE (1) 

DR (S72. G?s1) Go TO 17 


OUTPUT OF DATA TO LIBRARY CARDS 


WRITE(8, 774) STA({I) ,1S0,INO 
WRITE(8,771) (SSLOC (14d) ¢J=1¢12) oF 
FORMAT (1X,12A4,/,° STATION DATA: 


ease 
*1X,2(F8.3,1K) F503 Xe F502) 


re) 
EL (I) ,DEL(I) ,CDEL({I), 


T (1) ,FG(I) , ELEVA (1) 
LAT, LON (DEG) , ELEV(KM) 
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v 73 


775 


774 
17 


IIR) 


719 
780 
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910 
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O12 


Me 


WRITE (8,772) (RECORD (J) ,J=1,1 
Dr eta tn ste de 712), FLT(1) ,FLG(1), RDP, RMG, 

FORMAT(1X,*EVENT DATA: ID AND LOCATION.',/,1X,12A4,/, 
*t LAT, LON (DEG) :",1X,2F8.2,/,1X,"DEPH(KM) AND MAG. ', 
*F6.1,1X,F4.1,/," ORIGIN TIME: *,5 (13) ,1X,F5.2) 

WRITE (8,773) SLDEL(I) ,DEL(I) ,CDEL(I) ,AZ(I) , AZE(1) 

FORMAT (1X,‘DISTANCES AND AZIMUTHS:',/,* SEISM DIST(DEG 
aa 
Bi fete7 AX, 1GEOC DIST(DEG): *,F7.2,/,* GEOC DIST(KM) 

e tf 
*F8.1,/" GEOC AZM (DEG) EV: ', 

*PT.2¢/¢1X,*GEOC AZM(DEG) ST: ',F7.2) 

WRITE(8,775) 

FORMAT(* THE FOLLCWING CARD HAS PHASE ARR. TIM®, 
*"E(HR,MIN,',/,* SEC), RAY PARAMETER P(SEC/DEG),APPAREN 
*T VELOCITY'®, 

*/," APPV(KM/SEC), ANGLE OF INCIDENCE AINC{DEG) ',/ 
*' ELLIPTICITY CORRECTION CELL(SEC) AND STATION®, 
x/," ELEVATION CORRECTION CSUR (SEC) *) 

WRITE (7,774) STA (I) ,1SO,INO 

FORMAT (1X,A4,20X,A4,1X,A4) 

CONTINUE 

Grutor. Gr.1j9 GO TO 780 

DO 779 I=1,N 

WRITE(7,778) 

FORMAT(* PHA ARR TIME P APPV AINC CELL CS 
*UR") 

CONTINUE 

CONTINUE 

IF (JCODE-1) 910,911,911 


ALCULATION OF TRAVEL TIMES AND VELOCITIES 


CALL TIMEP(N,JMAX,L,DDEL, RDP, SLDEL, TIP, DT) 
IF(NL.NE. 0) WRITE(6, 715) 


GOTO 49:12 
CALL TIMEP(N,JMAX,L,DDEL, RDP,DEL, IP,DT) 


IF(NL.NE.O) WRITE(6, 716) 
IF(NL. NE. 0) WRITE(6, 718) 
R=6371. 


CALCULATE ELLIPTICITY CORRECTION FOR EARTHQUAKE, 
CALCULATE SURFACE CORRECTIONS AND ABSOLUTE TIMES FOR 


N STATIONS. 


DO 920 I=1,N 
F TRAVEL TIME OR VELCCITY IS NON EXCISTENT, THE AFFECTED 


OUTPUT VARIABLES ARE ZERO. 


IF(TP(I).EQ.0.) GO TO 1009 


FGFG=FG (I) /57- 295778 
CALL MELIP£(NMN, GLAT (1) ¢ FLONG (1) , SGLAT 


*P, DEL(I) 


(I) ,FGFG,ELLIP, RD 


212 


ya ND a hy ee 


A ; We "a en ti : 

fa 

’ nea + ae * “ inate inns, aay vel, 
Axe AST 9 1 RIO: ee 


1 Shee ae 2) ei ' apes ere 
Gia SR Ay tap Ts none 
20) 8S9 CEDRD Seh\s SRR TORL ER ion 


(3) VRTe, Mee Hd, bey : demas raya oie 


of ERE jon 7 
~.£2 3 VR gy)? cee eogay k 
Se .. uty 
“OR er RRA MACHA BAM CRA: GUTH 
HAIR (LONER ArTInass? LAN ae Ne 


oy” why Onts SOUZA ET Se niga. 
‘goOrPROe OHA LONG VIaD BOTEOURare 
oan We KOETIOA LW 

| O¥z ween Neaied 


(PS, AK! Mitel 


ey 2.095 De oee 4) SET? ite fant 


we are shee otal 
BEE. ead RK ail ay any am 


ie oh dees we (Rath, K RAPE, 1508 
; : Pee a PyEEE 


Tso wt, i ar 4 sab dene Ay 
* 8) PLIES (0. had Tt. 
{att dp aTEAP (0 AM ade Re - 
set Ee f 
THLIORTMAT TOR WORT RROD Uae tae | 

"ae Otte erent es oh 8 A 0 cape woatate vagina ” 
<CROLTADe Bo 
a. et ase ‘og eu 


LETOReA LAT | TERYRIOTS. GOR |e ETTOAIae 90 202? Javea? a? ae 


ORES SHE alpacas Toe Teo uf 
A abe 
Eo0r of ap tof sO (2, 92351 
AVC Ses TRS (TEOCRD TOS q 
Vf 85102 .280%, {EP TAI02, 7p OVOTL, Gp TAD Aho eT I38 aaa 4 
| (ta d8Ose* 
. oe ij > 


P< RO @) 


OOF AO 


OY Or@ 


100 1 
1002 
1003 


1004 


1005 


1006 
1007 


1008 


1009 


*, TCELL (I) ) 


COMPUTE ANGLE OF INCIDENCE ,AINC, AT SURFACE AND FIND SURFACE 


CORRECTION AT OBSERVATORY STATION, TSUR. 


AINC=ARSIN (VELOC (I) ¥57.3*DT (I) /R) 
TSUR (I) =ELEVA (I) / (VELOC (I) *COS(AINC)) 
VANG= (VELOC (1) *DT (I) *57.3/R) 

IF (ABS (VANG).GE.1.9) VANG=0. 
VANG=ARSIN(VANG) *57.3 
CVANG=13.64*DT (I) *57. 3/2898. 

IF (ABS (CVANG) .GE.1.0) CVANG=0. 
CVANG=ARSIN (CVANG) *57.3 
CSANG=7. 30*DT (I) *57.3/2898 

IF (ABS (CSANG) .GE.1.0) CSANG=0. 
CSANG=ARSIN(CSANG) *57.3 


TP = PREDICTED ARRIVAL TIME FULLY CORRECTED. 


ORIGIN TIME OF EVENT IS ID DAYS, IH HOURS, 
RSEC SECONDS. 


TP(I) = TPqI) + TCELL(I) +TSUR(I) 
MINI=TP(I)/60. 

GM = MINT 

IHR=GM/60. 

TSEC = TP(I) - GM * 60.0 


COMPUTE AESOLUTE TIME OF ARRIVAL OF PHASE. 


TSEC=RSEC+tTS EC 
IF(TSEC-60.) 1002,1001,1001 
TSEC=TSEC-60.0 

MINI = MINI + 1 

IMIN = MINI + IN 

IF (IMIN-60) 1004, 1003, 1003 
IHR=IHR+1 

IMIN=IMIN-60 

IHR=IH+IHR 

IDR=ID 

IF (IHR-24) 1006,1005,1005 
THR=IHR-24 

IDR=ID+1 

EDNE=11 
IF(DT(I)) 1007, 10C8, 1007 
SCA=2. *3. 14159*R/360. 
APPV=SCA/DT (1) 

GO TO 1010 

APPV=0.0 

GO TO 1010 

CONTINUE 

TDR=0 

THR=0 

IT MIN=0 

MSEC=0. 


IN MINUTES, 
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TP (I) =0. 
TERUL(T)=0. 
TSUR (1) =0. 
VANG=0. 
SANG=0. 
CVANG=0. 
CSANG=0. 
APPV=0. 
1010 IF(NL.NE. 0) WRITE(6,719)STA(I) ,IDR,IHR,IMIN,TSEC,TP(I), 
*TCELL (1) 
x, TSUR(I),DT (I), 
1APPV,VANG,CVANG,CSANG 
WRITE (7,742) PHAS (III) , IHR, IMIN,TSEC,DT (I), APPV,VANG,TC 
*ELL(I), 
*TSUR (I) 
ee ORMAT (IX PAG /UX 92 (127 UX) f2 (P5625 1X) 2X7 ES. WHI, FO 1, 4X 
ee (E56 2 9 1X))) 
NNN=NNN+1 
920 CONTINUE 
NCOUNT (KEPIC) =N 
KEPIC=KEPIC+t1 
IF (CHEAPP.EQ.CHEAP) GO TO 401 
GO TO 207 
930 CONTINUE 


USING SUBROUTINES SHUF AND SPT, THE FILES ARE NOW 
REARRANGED TO GET THE PHASES IN THE RIGHT ORDER, AND 
TO FIT THE LIBRARY CARD FORMAT. 


III=III-1-CHO 
WRITE(6,728) III, NNN 
KEPIC=KEPIC-1 
IF (CHEAPP.NE.CHEAP) CALL SHUF(7,KEPIC, NCOUNT) 
III=III+2 
LIII=20-III 
IF(LIII) 410,411,412 
412 CONTINUE 
READ(7,450, END=417) 
GO TO 412 
417 CONTINUE 
DO 413 L=1,NNN 
DO 413 K=1,LIII 
413 WRITE(7,450) 
450 FORMAT(/) 
TER=20 
GO TO 411 
410 WRITE(6,451) 
451 FORMAT(/,*TOO MANY LINES TO PRINT CARDS',/) 
411 CONTINUE 
CALL SPT(7,8,I11, NNN) 
STOP 
END 
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THIS PROGRAM IS A GENERAL VELOCITY - AZIMUTH SPECTRAL 
ANALYSIS PRODUCED BY P. R. H. GUTOWSKI AT THE U. OF ALBERTA 


THE PROGRAM HAS BEEN CHANGED SUBSTANCIALLY BY JENS HAVSKOV 
LATEST UPDATE IS FRCM JUNE 1976. 


THE MOST IMPORTANT CHANGES ARE: 
CORRECTION FOR STATION ELEVATION. 
CORRECTION FOR EARTH CURVATURE AT THE ARRAY SITE. THIS 
CORRECTION IS ONLY IMPORTANT FOR LARGER ARRAYS. 
OUTPUT OF COVESPAGRAMS ON A P-AZ GRID INSTEAD OF A 
LIME=PGRED. 
CALCULATION CF THE ARRAY RESPONSE FOR EACH RON. 


ORIGINAL VELOCITY SPECTRAL ANALYZER GIVEN BY 

De DAVIES AT AL, NATURE 1970 WHICH FEATURED 
BEAMFORMING FOR EACH VELOCITY (DELAY AND SUM) 
TAKING THE POWER OF ONE SECOND OF BEAM AT 1 SEC 
INCREMENTS DOWN THE RECORD. THE RESULTANT VELOCITY 
VERSUS TIME MATRIX WAS THEN CONTOURED AND PLOTTED. 
THIS METHOD HAS SINCE BEEN SHOWN TO BE RATHER 
DEPENDENT ON AMPLITUDE VARRIATION ACROSS THE ARRAY 
WITH DISTINCT SIDE LOBES APPEARING EVEN FOR LARGE 
NUMBER OF SENSORS. THE VELOCITY - AZIMUTH 

SPECTRAL ANALYSIS METHOD (VESPA) DOES NOT SUFFER 
FROM THIS DRAWBACK AS IT INVOLVES A COHERENCY 
FUNCTION GENERATED BY CROSS MULTIPLICATION OF 
TRACES IN COMBINATICNS OF TWO STATIONS. THE SIMPLE 
SUMMATION OF SENSORS I.E. FOR 5 SENSORS BEAMFORM 
WOULD LEAD TO THE SUM OF 5 TRACES WHEREAS VESPA 
WOULD CROSS MULTIPLY 10 TIMES AND THUS MAKES MUCH 
MORE EFFICIENT USE OF THE AVAILABLE DATA REDUNDANCY. 
IN ADDITION VESPA SWEEPS NOT ONLY THROUGH VELOCITY 
AND TIME , BUT ALSC THROUGH AZIMUTH THUS EMPLOYING 
THE MAXIMUM INFORMATION INHERENT IN ARRAY DATA. 
FOR A MODERATE NUMBER OF SENSORS THEREFORE, THERE 
WILL BE VIRTUALLY NO SIDE LOBE PROBLEM. 


INPUT 


TN POT: 1s 
CARD 1 TO CARD 7: A FILE CONTAINING A LIST OF STATION 


IDENTIFIERS, LATTITUDES,LONGITUDES (DEG) AND 


ELEVATIONS (KM) - a ae 
FORMAT (2X,A4,4X,3F1024 
FROM megs Eat THE STATIONS NEEDED FOR A PARTICULAR 


RUN IS CHOSEN. THE STATIONS DO NOT HAVE TO BE IN 
ANY ORDER. 
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CARD 1: 


CARD 2: 


CARD 33 


CARD 4: 


CARD 5s 


CARD 6:3: 


CHR 7s: 
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NS,IREL,LL (315) 

NS: NUMBER OF STATION IN THE ARRAY. 

IREL: STATION NUMBER RELATIVE TO WHICH P AND 
AZ IS MEASURED. THE ORDER IS DETERMINED 
THE ORDER OF INPUT TO CARD 2. 

IL: COMPONENT TO BE USED FOR CORRELATION, 

0,1,2 ARE Z, NS, AND EW. 

KEITBL(I) (7(A4)) 

STATION IDENTIFIERS, E.G. "EDM ', 

NOEV,NCOMB (225) 

NOEV: NUMBER OF RUNS WITH A NEW SET OF PARAMETERS 
TO BE SPECIFIED (SEE CARD 4-9). 

NCOMB: NUMBER OF RUNS WITH SAME PARAMETERS (CARD 4 

-9) ,EXCEPT A NEW STATION COMBINATION HAS 
TO BE READ IN (CARD 7). THUS CARD 4-9 FOR 
THE FOLLOWING RUNS ARE REPLACED BY CARD 7. 

NSTAT,ITSPAN,NPOP,NEND,F1,F2 (415,2F6.2) 

NSTAT: NUMBER OF STATIONS USED IN A PARTICULAR RUN. 

ITSPAN: A COVESPAGRAM IS CALCULATED FOR EACH SECOND 

ITSPAN SECONDS. 
NPOP: OVER THE TIME SPAN ITSPAN THE PROGRAM WILL FIND 
THE FOINT (P,AZ) WITH THE HIGHEST CORRELATION. 
NEND=2 WILL MAKE THE PROGRAM RECALCULATE THE 
COVESPAGRAM CENTERED ON (P,AZ), AND WITH P 
AND AZ STEPS 5 TIMES SMALLER, THUS GIVING A 
BETTER ESTIMATE OF THE MAXIMUM. IN GENERAL THE 
PROGRAM GOES THROUGH THE LOOP NPOP TIMES, EACH 
TIME DECREASING THE P AND AZ STEP. 
IF NPOP=0, ONLY THE ARRAY RESPONSE WILL BE 
CALCULATED, AND INPUT 8 DOES NOT HAVE TO BE 
CONNECTED. 
NENED: NUMBER OF DATA POINTS OVER WHICH THE 
THE CORRELATION IS PERFORMED. E.G. NEND=25 
GIVES A TIME SPAN OF 2 SEC, AS THE SAMPLING 
RATE TS 12.5. 

F1,F2: LOWER AND UPPER FREQUENCY(HZ) FOR BANDPASS 
FILTERING THE DATA. NO FILTERING IS DONE 
IF BOTH F1 AND F2 ARE ZERO. 

VL1,VU1,VDIV1,CORLTM (4F10.0) 

VL1,VU1: LCWER AND UPPER P LIMET(DEG/SEC) FOR THE 

'SPAGRAM. 

ae INCREMENT OF P, MUST BE SUCH THAT ONLY 31 
VALUES OF P RESULTS. 

CORLIM: CORRELATIONS ARE NORMALIZED TO 1.0, AND 
CORRELATIONS BELOW CORLIM ARE EQUATED TO 0. 


AZML1,AZMU1,AZDIV1 (3F10.0) 
AZML1,AZMU1! LOWER AND UPPER AZIMUTH LIMITS OF 


COVES PAGRAM. 
AZMDIV1: INCREMENT OF AZIMUTH, MUST BE SUCH THAT 
ONLY 21 VALUES OF AZ RESULTS. 
NFILE,STATNS (1) (13,7A4) 
NFILE: FILE NUMBER ON THE DATA TAPE OF THE FIRST 
STATION IN A PARTICULAR RUN. THE NUMBER IS FOR 


THE TAPE HEADER. 
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CARD 18's 


CARD 9:3 
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STATNS: STATION IDENTIFIERS OF NSTAT STATIONS USED, 
STATION MUST COME IN SAME ORDER AS ON TH TAPR. 
TITSTART,T1,T2 (3F10.0) 
TTSTART: CORRELATION START TIME. TTSTART=0 IMPLIES 
THAT CORRELATION WILL START 3 SEC BEFORE 
THE PREDICTED P-WAVE ARRIVAL TIME. 
T1: PERIOD(SEC) OF THE ANALIZED SIGNAL, USED FOR 
CALCULATION THE ARRAY RESPONSE. 
T2: TIMESEAN OF GENERATED TEST SIGNAL WITH PERIOD 
T1. 
VVV(I) ,AZZ(I) ,AMP(I) (9F6.1) 
VVV,AZZ, AMP: £,AZ AND AMPLITUDE OF ABOVE TEST SIGNAL 
USED FOR CALCULATION OF ARRAY RESPONSE. 
UP TO 3 DIFFERENT PULSES CAN BE USED. 


EXAMPLE OF A RUN DECK: 


RUN CO 1=VASASTATION 8=*T* 


6,2, 


EDM DEL FIN TRO RMN1 RM2 


1,1, 

Sy U1, 25, 
Wee 0805, = 
HO3 720, 15 


Vee ile3, 
1, 


145PIN TRO RM2 


0,1,6, 

Te Dyin 3 gat 
yg ty 2D ¢ 
Zecgdes, Oe 
103,120,1, 
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Oeilighte oy 
ae BA 


145PIN TRO RM2 


Se ,ndsea, 


THE PROGRAM WILL NOW SEARCH OVER THE SPECIFIED VELOCITY, 
TIME AND AZIMUTH RANGES GENERATING A SERIES OF VESPAGRAMS 
FOR EACH TIME WINDOW PRINTING THESE OUT AND oe a 
SUCCESIVE MAXIMA OVER THE TIME WINDOW INCREMENTED AT 

1 SECOND INTERVALS AND THUS PRODUCING A SERIES OF 
VELOCITY TIME AND AZIMUTH ESTIMATED BY PARABOLA FITTING. 


DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


CZ (10) AZ (747) oD (767) eV (742300) pCO (747) 
CCOR (2031731) ¢AZM (7) - DELTA (7,7) 

XVEE (31) ,AT(21) -ZA (7) oh (21) -M (21) -TTD(7) 
W (2300) ,DD(8) 

NCCOR (50) , XXVEL (3) ,XXAZ (3) 


hte PO 4 4 


eeeaw TO eeE Ae 


—— 


"qhs Eis (NSA Ru (1 8 ON bes 


tA \ ‘ ; : : M 4 
fi iA ( BAY F A Vir tee Lae ‘ ; 
" ag Pr ‘7 ae + fe Pl - 
CARLIE TA ray wore rata tae we 


rate reer. 4 if DEPANS i ae ie 


4 ~ oan e ; oe ad + i act eT 
, i b a YS Sr ea tee’. 
. 7.4? Y - :reer 
Pa Ate STESRaEROT: ARREST: | 
, % ps tay py me “i | DD " 
‘) nr a . 4 Ht (OD. a A RT a i a 
' ~ * S cy at , 
1 * s 4 ue Abe 7 aa7 7 ; =F yi) 
p 7 am yy wi A Taae oO arm 
¢ + it . i332 vOLRE py at 
* rn — a oi | is = - j 
: 1 shiek “hay i eee ee 
“ 
ie as y Wine’ < bbe Lee, 
& \w oe = 
A ’ 
i ;  s 
Y's So 
5 4 a ’ 4 2 a 
. # > , 
Hl ; . é ss boy vy 
~ 7 
a 
? 
. # 
£ 
y 
i 
’ 
a se x 
U a é ’ co 
I 
' A 
» wih Pat ne, ath 
ile wl AC sal ‘ , 
a y set an 
SL ; 
q ‘ — =a : 
b 4 h arb q 
wl 
= ’ . 6 
af ~y 
% 
ts 
’ a -., 
imi) a 
) 
\ % 
P —_—-~- oe 
£ ef 4 » ¥ 
¥ } } , 
2 ae a 
ret 
NL ema 
Men iis A 
as 


S ¥ ; 
aa i 1) n Rie ‘wou exe 7 2 Gate 
tee -Th LAR TENS LEO" 6g BOONTSE ieee 
1S ASAT WETS EERY doANTa SET Ha As" 20) 
VOUNTW SkTe BHT KAvG) BRLKER, be eS UG 
A SUiDHOORe Oey ra LAVA woDRe T 
ee M0 ere ce A aed sf nae 
ia he diate alae ratte aie i 


er iY pone i. _ 


, 
a 
, ao 
@ 


i> “e Pk bec eek 
Does re. COLT Cy ety ae dee * ys 
oh) APS" he \Ty aaa t a 9} ‘Ths 


ANAA 


a 


62 
103 


22 


aS 
101 


70 


129 


126 


187 


218 


DIMENSION HEIGHT(7) ,NTD(3,10) ,AMP (3), VVV(3) ,AZZ(3) 
INTEGER*2 IDAT (8192) 

DOUBLE PRECISION DOUB1,DOUB2 

DOUBLE PRECISION TIMFS(7) ,TMAX, TSTRT, TDEL 
DIMENSION FFQ(24) 

REAL KEYTBL(10),LAT (10) ,LON(10) 

INTEGER*4 TD (7,7) 

REAL*4 STATNS (7) 

NFLST=1 

READ (5,115) NS, IREL, LL 

READ (5,116) (KEYTBL(1) ,I=1,NS) 

FORMAT (10A4) 

DO 62 I=1,NS 

CONTINUE 

READ(1,103) ST 

IF(ST.NE.KEYTBL(I)) GO TO 51 

BACKSPACE 1 

READ (1,103) ST, LAT (I) ,LON (I) , HEIGHT (1) 
CONTINUE 

FORMAT (2X,A4,4X,3F10.4) 


ALL COMBINATIONS OF AZIMUTHS AND DISTANCES BETWEEN ANY TWO 
STATIONS IS CALCULATED. 


DO 22 J=1,NS 

DO 22 I=1,NS 

CALL DELAZG(LAT(J),LCN(J) ,LAT(I) ,LON(I) ,DI,SKM,AZ1) 
AZ (3,1) =AZI/57. 29578 

D (J, I) =SKM 

CONTINUE 


AZIMUTH CORRECTION FOR NON FLAT EARTH. 


CALL CAZM(NS,IREL,LAT,LON,CZ) 
READ(5,115) NOEV,NCCMB 

FORMAT (1615) 

FORMAT (7F 10.6) 

DO 10 IEV=1,NOEV 

DO 1010 KCOM=1,NCOMB 

NREAD=1 

IF (KCOM.EQ.1) NREAD=0 

TF(NREAD.EQ.0) READ(5,70) NSTAT,ITSPAN,NPOP,NEND,F1,F2 
FORMAT (415, 2F7. 2) 

NPOP=NPOP+1 

IF (NEND.EQ.0) NEND=50 

NUM= (NSTAT* (NSTAT-1)) /2 
IRDIM=ITSPAN+108 

WRITE(6, 129) KEYTBL(IREL 

FORMAT (*1*, * REFERENCE STATION IS',1X,A4) 
WRITE(6, 126) LL 

FORMAT(*CHANNEL NUMBER',13) 

WRITE (6,179) NEND 

WRITE(6,187) F1,F2 

FORMAT (' CORNER FREQUENCES ',2F7.2) 
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179° FORMAT ("NEND=", 13) 
RDIM=IRDIM 
IRDIM=RDIM¥*12.5 
LORNA=ITSPAN+1 
IF(NREAD.EQ.0) READ(5,80) VL1,VU1,VDIV1,CORLIM 
VU=VU1 
VL=VL1 
VDIV=VDIV1 
IF(NREAD.EQ.0) READ(5,80) AZML1,AZMU1,AZDIV1 
AZML=AZML1 
AZMU=AZMU1 
AZMDIV=AZDIV1 
80 FORMAT (4F10. 0) 
NAZM=(AZMU-AZML) /AZMDIV +2 
NVELS=1 
DOM2T eI2=1,35 
VIND=VL+J2*VDIV 
IF(VIND.GT. (VU+0.0001)) GO TO 13 
GO TO 14 
V3 CONTINUE 
WRITE(6,200) NVELS 
200 FORMAT(1H ,*NVELS=",15) 
GO TO 21 
14 CONTINUE 
NVELS=NVELS+1 
27 CONTINUE 
21 CONTINUE 
PSTART=(VL+tVU) /2.0 
RAD=3.14159/180. 
READ(5,100) NFILE,STATNS 
100 FORMAT (I3,7A4) 
102 FORMAT(7F10.0) 
IF(NREAD.EQ.0) READ(5,102)TTSTRT,T1,T2 
IF(NREAD.£Q.0) READ(5, 113) (VVV (I) ,AZZ (I) ,AMP(I) ,I=1, 3) 
113. FORMAT (9F6.1) 
WRETE (6,122) T1,72 
DON176 J=T, 10 
DO 176 K=1,3 
XXVEL(K) =0.0 
XXAZ (K) =0.0 
176 NTD(K,J) =0.0 
122 FORMAT(*PERIOD=',F3.1,5X,"TIME WINDOW=',F3. 1) 
TSTRT=TTSTRT/60.0 
IF(NPOP.EQ.1) GO TO 402 
IF(NFILE.NE.NFLST) GO TO 401 


IDENTIFY STATIONS 


402 DO 71 I=1,NSTAT 
DO 72 J=1,NS 
IF (STATNS (I) .NE. KEYTBL(J)) GO TO 72 
TA (1) =d 
GOTO 71 

72 CONTINUE 
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CONTINUE 
NSTOP=6 
IF(NPOP.EQ.1) GO TO 1200 


FIND START TIMES FROM TAPE 


DIST=0.0 
NBACK=0 

DO 2333 I=1,NSTAT 

IQ=IA (I) 

CONTINUE 

READ (8) IEVENT, STAT, DEL, AZIM, IH, IM, DOUB1,MODE, NWB, IHS, I 
*MS, DOUB2, 

11D, IMON, IYEAR, THOU, IMIN,ESEC, ELAT, ELON, EDEP,EMAG, NP, (F 
*FQ (IXX), 

*T XX=1,5) 

IF (STAT. EQ.KEYTBL(IQ)) GO TO 2334 
CALL SKIP (2,0, 8) 

NBACK=NBACK+#2 

GO TO 2335 

CONTINUE 

DIST=DEL/NSTAT+¢DIST 

TIMES (I) =DOUB2+60*IMS+3600*IHS 

CALL SKIP (2,0,8) 

NBACK=NBACK+2 

CONTINUE 

NBACK=NBACK +1 

IF(NFILE.EQ.1) GO TO 74 

CALL SKIP (-NBACK, 0, 8) 

CALL SKIP(1,0,8) 

GO TO 75 

REWIND 8 

CONTINUE 


CORRECTION FOR ALTITUDE 


STH=PSTART*6. 2*57. 3/6371. 
STH=SORT ( 1-STH**2) 

DO 1133 I=1,NSTAT 

TIMES (I) =TIMES (1- HEIGHT (IA (I) ) / (STH*6. 2) 
CONTINUF 

WRITE(6, 141) ILYEAR,IEVENT 

CONTINUE 

IF(NPOP.EQ.1) DIST=50.0 
FORMAT(//,*EVENT VA',I2,2X,13,//) 


GENERATE ALL POSSIBLE COMBINATIONS OF TWO STATIONS 


AN=NSTAT 
ey 

K=1 

DO 19 I=1,NUM 

K=K+1 

BRiKen Le. NSTAT) GO To 11 
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19 


20 


6565 
exl2 


ree 


818 


2000 


2001 


Ze 


J=J+1 

K=J+1 

L (I) =J 

M (I) =K 

IF(NPOP.EQ.1) GO TO 1101 


FIND AMOUNT OF DATA TO TAKE FROM TAPE AND WHERE TO START 


TMAX=TIMES (1) 

IMAX=1 

DO 20 I=2,NSTAT 

EP(TMAX .GT. TIMES(I)) GO TO 20 
TMAX=TIMES (1) 

IMAX=I 

CONTINUE 

TSTRT=(63.0-(TMAX-TIMES(1))) /60.0+TSTRT 
WRITE(6,6565) TTSTRT, (TIMES (I) ,I=1,NSTAT) 
FORMAT(1H ,*TSTRT=",F10.2,2X, "TIMES=", 7F10.3) 
FORMAT ('TDEL=",F7.1,*IS TOO BIG‘) 

DO 17 I=1,NSTAT 

TDEL=TMAX-TIMES (1) : 

IF (DABS (TDEL) .GT.150.) WRITE(6,1212) TDEL 
TDELAY=12.5*TDEL+0.5 

TTD (I) =4*IDELAY 

BLK=TSTRT/2. 73067 

MBLK=BLK 

X BLK=MBLK 

TREM=2. 73067* (BLK-XBLK) 

TREM=4*IFIX (TREM*750.) 

ITSPAN=ITSPAN+108 

TSPAN=ITSPAN 

ISPAN=12. 5*TSPAN 

WRITE(6,814) (ITD (IX2) ,I1X2=1,NSTAT) 


FORMAT (5X,*ITD.oe', 5110) 
WRITE(6,818) BLK, XBLK,TREM,IREM,ISPAN 
FORMAT (5X, 's00%,3F10.4,3110) 

DO 210 I=1,NSTAT 

IQ=IA (I) 

CONTINUE 

READ(8) IEVNT,STAT, (FFC (IXX) ¢ IXX=1,4) ,DOUB1, (FFQ(IXX), 
*IXX=5,8) , DOU 

1B2, (FFO (IXX) , 1XX=9, 24) 

IF (STAT. EQ. KEYTBL(IQ)) GO TO 2001 

CALL SKIP(2,0,8) 

NFLST=NFLST+2 

GO TO 2000 

CONTINUE 

CALL SKIP (1,0,8) 


SKIP TO STATION DATA FOR THIS EVENT 


CALL SKIP (0, MBLK, 8) 
TCOR=0 
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PESTA OIAT BOF ATA. 


PLP AF 


READ(8) IDAT 
WRITE (6,820) I 
820 FORMAT (5X,*STATN...1",110) 


PICK OFF DATA FOR EACH STATION SO THAT ALL TRACES ARE 
ALIGNED IN TIME. 


AMAAD 


DO 230 J=1,ISPAN 
Td4=4*J 
K=I4+IREMF+ITD (I-3+LLt+IcorR 
V (I,J) =IDAT (K) 
IF(K .LT. 8189+LL) GO TO 230 
WRITE(6,820) K 
WRITE(6,820) I4 
READ(8) IDAT 
TCOR=-IREM-ITD (I-14 
230 CONTINUE 


REMOVE DC LEVEL 


2) (@) @) 


Dc=0.0 
DO 233 J=1,ISPAN 
233 DC=DC+V (I,J) 
DC=DC/FLOAT (ISPAN) 
DO 234 J=1,ISPAN 
234 V(I,J) =V(I,J-DC 
WRITE(6,900) IEVNT,STAT 
900 FORMAT(1H ,1I5,A4) 
WRITE(6,821) DC 
821 FORMAT (5X,"DC.ooe',F10.3) 
CALL SKIP(1,0,8) 
210 NFLST=NFLST+2 
ITSPAN=ITSPAN-54 


NSTOP=0 
Cc 
S FILTERING THE TRACES 
- 


IF((F1+F2)-LT.0.0001) GO TO 65 
CALL BNDPAS(F1,F2,80.0,DD) 
DO 60 KS=1,NSTAT 
DO 61 I=1,IRDIM 
61 WET) HVAKS 1) 
CALL FILTER(W,IRDIM,DD) 
DO 79 I=1,IRDIM 
79 V(KS,1I)=W (I) 
60 CONTINUE 
65 CONTINUE 
1100 CONTINUE 
NSTOP=NSTOP+1 
IF(NSTOP.LE.1) GO TO 1101 
IF(NSTOP.EQeNPOP) GC TO 1155 
C 
C FIND VELOCITY AND AZIMUTH FOR NEXT CALCULATION 


C 
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ITSPAN=ITSPAN+54 
VDIV=VDIV/5 

VL=VELMAX-( (IVLIM-1) *VDIV) /2 
VU=VELMAX+ ( (IVLIM~1) *VDIV) /2 
AZMDIV=AZMDIV/5 
AZML=AZMAX~ (NIZ-1) *AZMDIV/2 
AZMU=AZMAX+ (NIZ-1) *AZMDIV/2 
CONTINUE 

TVH=VLe100, + 0.2 
IVU=VU*100. + 0.2 
IVDIV=VDIV*¥100. + 0.2 
TAZML=AZML*100. 
ITAZMU=AZMU*100, 
IZDIV=AZMDIV*100 

IZ=0 

GO TO 1143 

CONTINUE 

rZ=0 

IF(NPOP.EQ.1) NSTOP=1 


CALCULATE TIMESERIES FCR ARRAY RESPONSE 


1134 


NTD (1,1) =0.0 
NTD (2,1) =0.0 

NTD(3,1) =0.0 

TTSPAN=54 

DO 1134 T=1,TRDIM 

DO 1134 J=1,NSTAT 

DO 1135 KLM=1,3 

DO 1135 J=1,NSTAT 
KL1=-NTD (KLM, J) +675 
KL2=KL1+T2*12.5 

DO 1135 I=KL1,KL2,1 

V (J,1) = (FLOAT (KL2-1) /FLOAT (KL2-KL1) ) *SIN( (I-K1L1) 0.502 
*65/T1) 
**AMP (KLM) +V (J,1) 


1135 CONTINUE 
1143 CONTINUE 


281 


DO 107 IAZM=IAZML,IAZMU,IZDIiV 
IZ=1IZ+1 

AT (IZ) =FLOAT (IAZM) /100. 

A=AT (IZ) 

DO 281 IJ=1,NS 

AZM (IJ) =AtCZ (IJ) 

CONTINUE 


CALCULATE DISTANCES FROM STATION TO STATION WAVEFRONT 
HAS TO TRAVEL FOR EACH AZIMUTH. 


DO 250 I=1,NUM 
DELTA (L (Z) oM (1) ) =D(IA (LCI) ¢ TA (M (1) )) #COS (RAD* (AZM(TA ( 


*L(I)))- 
TAZ(IA(L(1)),/IA(M(T)))) 
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DISTANCE CORRECTION FOR EARTH CURVATURE 


CALL CURVE(D(3,IA (L(I))) -D(3,IA(M(I))) » (1/RAD) *AZ(3,IA 
*(L(I))), 
*(1/RAD) *AZ(3,IA(M(I))) ,AZM(3) ,DIST, x) 
IF (DELTA (L(I) -M(I)) eLT.0.) X=-X 
DELTA(L(I),M(I)) =DELTA (LqI) ,M(I)) +X 

250 CONTINUE 


FOR THIS AZIMUTH CALCULATE VESPAGRAM 


Iv=0 

DO 306 IVEL=IVL,IVU,IVDIV 
TT=0 

IV=IV+1 

VEX=FLOAT (IVEL) /100. 
IVLIM=IV 

VEE=111. 2/VEX 

XVEF (IV) =VEX 


CALCULATE DELAY TIMES FOR EACH 2 STN COMBO FOR EACH VELCCITY 


DO 301 I=1,NUM 
301 TD (L(I) ,M(I)) =12. 5* (DELTA (L(I),M(I))/VEE) +0.5 
IF(NPOP-1.NE.NSTOP) GO TO 1188 


FIND DELAY TIMES FOR CALCULATICN OF ARRAY RESPONSE 


DO 1187 KN=1,3 
IK1=ABS (VVV (KN) *100-IVEL) 
IK2=ABS (AZZ (KN) *100-IAZM) 
IF(IK1.LE.IVDIV/2.AND.IK2.LE.IZDIV/2) GO TO 1177 
GO TO 1187 
1177 CONTINUE 
XXVEL(KN) =IVEL/100. 
XXAZ (KN) =IAZM/100. 
NUM1=NSTAT-1 
DO 1178 I=1, NUM1 
NTD (KN, 141) =TD(L (1) -MUT)) 
1178 CONTINUE 
1187 CONTINUE 
1188 CONTINUE 


STEP DOWN IN TIME ALONG THE RECORDS DELAYED FOR THIS VELOCITY 


IF (NPOP.EQ.1.AND.»NSTOP.EQ.C) GO TO 306 
DO 305 ITOR=54,ITSPAN 
TOR=12. 5¥* FLOAT (ITOR) 

TCC=0.0 

IT=IT+1 

IOR1=IOR 

K=1 
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CROSS MULTIPLY NEND POINTS OF DATA FOR ALL COMBOS AND 
SUM) THESE AT THIS TIME. 


ANANADA 


DO 302 I=1, NUM 
TTCC=0.0 
ANORM1=0.0 
ANORM2=0.0 
DO 303 JJ=1,NEND 
J=JI-1 
TTCC=TTCC+V (L(I) , IOR1+5) *V (MCI) pIOR1#J-TD (L (I) »M(I))) 
ANORM1=ANORM1#¥V(L(1) ,IOR1¢J) ##2 
303 ANORM2=ANORM2+V (M (I) ,IOR1#3-TD(L(1I) ,M(I))) **2 
IF ( (ANORM1*ANORM2).EQ.0.0) GO TO 7676 
CC (L (I) ,M (I) ) =TTCC/ (ANORM1* A NORM2) **0.5 
GO TO 7677 
7676 CC(L(I),M(Z))=0.0 
7677 CONTINUE 
TCC=TCC+#CC (L(I) ,M(I)) 


ENTER THIS VALUE INTC MATRIX 


omeone) 


CCOR(IT,IV,1Z) =TCC*2./ (AN* (AN-1.)) 
IF(I.EQ.NUM) GO TO 302 
IF(L(I+1) .EQ. LqI)) GO TO 302 
IOR1=IOR-TD (L (K) » M(K)) 
K=K+1 

302 CONTINUE 

305 CONTINUE 


306 CONTINUE 
IT=1 
NIZ=1Z 
NNIZ=NIZ-1 
107 CONTINUE 
IF(NSTOP.EQ.NPOP) GC TO 999 
IF(NPOP.EQ.1.-AND.NSTOP.EQ.0) GO TO 1155 


ITSPAN=ITSPAN-54 
STEP DOWN MATRIXES IN TIME AND PICK MAXIMA ABOVE LOWER LIMIT 


QAaANA 


WRITE( 6,455) 
455 FORMAT (/) 
CLMAX=0.0 
J=0 
692 J=J+1 
TF(J.EQ. (ITSPANt+2)) GO TO 999 
CMAX=-2.9 
IT=J 
DO 91 ITZ=1,NIZ 
NORD TaLVe I, IVLIM 
IF (CCOR(IT,1V,1Z) -LE-CMAX) GO TO 91 
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91 


95.2 


694 


693 


560 


CMAX=CCOR (IT, IV ,12Z) 
ITBIB=IT 

IVBIB=IV 

IZBIB=1Z 

CONTINUE 

IT=ITBIB 

IV=IVBIB 

IZ=IZBIB 

IF(CMAX .GE. CORLIM) GO TO 93 

WRITE(6,952) CMAX 

FORMAT (SX,"CORREL LESS THAN LIMIT, CMAX= *,F10.3) 
GO TO 691 

CONTINUE 

CONTINUE 

IF(IV .LE. IVLIM-1 .AND. IV .GE. 2) GO TO 694 
WRITE(6,701) IV,1IZ,1T 

FORMAT (5X,"MAX. CORREL AT MATRIX EDGE,IV,IZ,IT= ',315) 
GO TO 691 

IF(IZ .LE. NNIZ .AND. IZ .GE. 2) GO TO 693 
WRITE(6,701) IV,IZ,iT 

GO TO 691 

CONTINUE 


FIT PARABOLAS IN TIME, VELOCITY, AND AZIMUTH 


TWOA=CCOR (IT, 1V+1,IZ) #*CCOR(IT, IV-1,12-2.*CCOR(IT, IV,I 
*Z) 

B= (CCOR (IT, 1V+1,I1Z-CCOR(IT,IV-1,1Z))/2. - TWOA*FLOAT ( 
*TV) 

FP=-B/TWOA 

IFP=FP 

APPVEE=XV EE (IFP) + (FP-FLOAT (1FP) ) * (XVEE (IFP+ 1- XVEE(IFP 


*)) 


TWOA=CCOR (IT, 1V ,1Z+ 1) #CCOR(IT,IV,1Z-1-2.*CCOR(IT,IV,1 
*Z) . 
B= (CCOR (IT, 1V,1Z+1-CCOR (IT, IV,1Z-1))/2. - TWOA*FLOAT ( 
*TZ) 

PP=-B/TWOA 


BES oS 5 
APPAZM=AT (IFP) + (FP-FLOAT (IFP) ) * (AT(IFP+1-AT(IFP) ) 


WRITE (6,560) CMAX 
FORMAT (5X,*MAX. CORREL-= ',F10.3) 


WRITE TIME AZIMUTH VELOCITY 


IF(CMAX.GT.CLMAX) GO TO 1021 
GOmrOmAg 22 

VELMAX=APPVEE 

AZMAX=APPAZM 

CLMAX=CMAX 
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1022 CONTINUE 


550 FORMAT(5X,"APP, VEL= *,F10.2," TIME= * 


WRITE(6,550) APPVEE,IT,APPAZM 


*M= ",P10.2/) 


691 GO TO 692 


401 CALL SKIP (NFILE-NFLST, 0,8) 


IF(NFILE-NFLST .LT. 0) GO TO 501 
NFLST=NFILE 
GO TO 402 


501 CALL SKIP (-1,0,8) 


CALL SKIP (1,0,8) 
NFLST=NFILE 
WRITE(6,4775) 


4775 FORMAT(1H ,*SKIPPED A NEG. NO. OF FILES") 


999 


837 


938 


20:3 


451 


901 
450 


GO TO 402 

CONTINUE 

LORNA1=LORNA 

IP (NSTOP.EQ.NPOP) LCRNA1=1 

IF(NSTOP.EQ.NPOP) WRITE(6,937) 

FORMAT (/, ‘ARRAY RESEONSE') 

IF(NSTOP.EQ.NPOP) WRITE(6,938) (XXVEL(I),XXAZ(I) ,AMP(I) 
*,I=1,3) 

FORMAT(/* VELOCITY AZIMUTH AMPLITUDE *,/,3(3F9.2/)) 
DO 450 IT=1,LORNA1 

WRITE (6,903) IT, (XVEE(I) ,I=1, 2VLIM,3) 

FORMAT (/1X,'T=",12, 5X, 27(F4e2,5X)) 

DO 450 Iz=1,NIZ 

DO 451 Iv=1,IVLIM . 

ITF (CCOR (IT, IV,1Z) «LT.CORLIM) CCOR (IT, IV,12Z) =0.0 
NCCOR (IV) = (CCOR(IT, 1V, 12) +0.005) #100 

CONTINUE 

WRITE (6,901) AT (IZ) , (NCCOR (IV) ,TV=1, IVLIM) 
FORMAT (1X,F7.1,2X,4013) 

CONTINUE 

IF(NSTOP.LT.NPOP) GO TO 1100 


1010 CONTINUE 


10 


CONTINUE 
STOP 
END 


° I5,* APP. AZ 
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PROGRAM PERFORMS EULER ROTATIONS ON COORDINATES 
LOCATED IN UP TO 4 DIFFERENT FILES. INPUT IS 
FROM 1-4 AND THE CORRESPONDING OUTPUT IN 11-14 


REAL LAT (3000) ,LON (3000) 


DIMENSION A(3,3) ,TEXT(6) ,B(10) ,C(10),D(10) ,BB(10) 


DIMENSION NF(4),CC(10) ,DD(10) 
READ (5,102)M,KJU, NF 

NF1=0 

DO 20 I=1,4 

NFI=NFI4#NF (1) 

IF (KJU.EQ.0) KJU=3 


M IS NUMBER OF DIFFERENT ROTATIONS 

KJU IS NUBER OF FILES TO BE ROTATED. THESE 
FILES ARE ALL ROTATED THE SAME AMOUNT, THE 
FIRST ONE CONTAINING MORE BLOCKS THAN THE 
NEXT ONE ETC. 

IF KJU IS ZERO ROTATION IS PERFORMED ON 3 
FILES. A CHOISE OF FILE CAN BE MADE BY 
ASSIGNING VARIOUS VALUES TO NF(I), I=1,4. 
IF ALL NF(I) ARE ZERO ROTATION IS PERFORMED 
ON AS MANY FILES AS SPECIFIED BY KJU. IF 
ONE NF(I) IS DIFFERENT FROM ZERO ROTATION 
IS ONLY PERFORMED ON THOSE FILES WHERE 
NF(I)=I, I=1,4. A FILE MUST ALWAYS BE 
CONNECTED TO 1, AS THE IDENTIFIERS NCONT 
ARE READ FROM INPUT 1. 


FORMAT (615) 
WRITE (6,202) M 
DO 2 K=1,5 


FORMAT (//*NUMBER OF DIFFERENT ROTATIONS! ,16///) 


FORMAT (215, 6A4) 
FORMAT (3F10.0,2110) 
READ (5, 100)B(1) ,C (1) ¢D (1) ¢ NSEC, NROT 


B,C,D ARE EULER LATITUDE (*+NORTH), LONGITUDE(+EAST) 


AND ANGLE OF ROTATION (tANTICLOCKWISE) « 
NSEC IS NUMBER OF BLOCKS ROTATED THE SAME AMOUNT 


NROT IS NUMBER OF ROTATIONS TO BE READ IN FOR 
THESE PARTICULAR BLCCKS. 


IF (NROT. EQ. 0) NROT=1 
IF (NSEC. EQ.0) NSEC=1 

BACKSPACE 5 

READ (5, 105) (B (I) eC (I) -D (1) ¢L=1, NROT) 
FORMAT (3F10. 0) 

DO 2 LL=1,NSEC 

READ(1, 101) N, NCONT, (TEXT (I) ,1=1,6) 
READ (1,103) (LAT (I), LON (I) -1=1,N) 


ANGLE OF ROTATION ZERO IMPLIES OUTPUT OF 
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C DATA WITHOUT ROTATION. 
Cc 
EMD (1). 20.0.) GO TO: 7 
c 
C THE NROT NUMBER OF ROTATIONS ARE COMBINED TO 
C CNE ROTATION, AND THE TRANSFORMATION MATRIX A 
Cc IS FOUND USING SUBROUTINE MUL. 
Cc 
DO 6 L=1,NROT 
NRO=NROT 
BB (L) =B(L) 
CC (L) =C (L) 
6 DD (L) =D(L) 


CALL MUL(NRO,EB,CC,CD,A) 
103 FORMAT(5(2F8.0)) 
7 CONTINUE 


THE DIFFERENT FILES ARE READ IN. EACH BLOCK 

IS CHARACTERIZED BY THE NUMBER NCONT(FILE 1) 

AND NC(FILE 2-4). IF NCONT IS THE SAME AS 

NC, THE SAME ROTATICN IS PERFORMED ON THAT 
PARTICULAR BLOCK(FILE 2-4) AS THE ROTATION FOR THE 
CORRESPONDING BLOCK IN FILE 1. 


ANANAANAANANADA 


DO 2 KJ=1,KJU 
IF(NF1.NE.O.AND.KJ.EFQ.1) GO TO 2 
IF(NF1.NE.0.-AND.NF (KJ) .NE.KJ) GO TO 2 
IN=KJ 

NOUT=KJ+ 10 


ANGLE OF ROTATION ZERC IMPLIES OUTPUT OF 
DATA WITHOUT ROTATION. 


Gra GG) 


IF(KJ.EQ. 1. AND.D(1) e£Q.0.) GO TO 5 
IF(KJ.EQ.1) GO TO 13 
READ(IN, 101, END=2) N,NC, TEXT 
IF(NC.FQ.NCONT) GO TO 14 
BACKSPACE IN 
GO TO 2 

14. READ (IN, 103) (LAT (I) ,LON(I) ,T=1,N) 
TP(D(1).£0.0.) GO TO 5 

13. CONTINUE 


Cc 
@ TRANSFORMATION OF COORDINATES. 
C 
DOsINits1 ON 
1 CALL ROT (LAT (1) » LCN (I) « A) 
5 CONTINUE 


WRITE (NOUT, 101) N, NCCNT, (TEXT (I) - = 1,6) 
WRITE (NOUT, 201) ((LAT(I), LON (I)) ,1=1,N) 
201 “FORMAT (5( 2°83. 2)) 
2 CONTINUE 
STOP 
END 
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CALCULATION OF THE RESULTANT EULER ROTATION FROM 

UP TO 10 DIFFERENT EULER ROTATIONS (LAT,LON, ROT) 

LATITUDE AND LONGITUDE (DEGREES, POSITIVE NORTH 

AND EAST) AND ANGLE OF ROTATION (POSITIVE ANTICLOCK- 

WISE) . 
DIMENSION A(3,3) ,B(3,3),C (3,3) ,U (3,3) ,R(20, 30,3, 3) , TEXT (5) 
REAL LAT (10) ,LON( 10) ,ROT(10) , LLAT,LLON 


NFILE: NUMBER OF DIFFERENT FILES CONTAINING AT SET 
OF ROTATIONS FOR DIFFERENT CONTINENTAL 
SEGMENTS. 


READ (5,100) NFILE 

DO 10 I=1,3 

90210 J=1,3 
TF(I.EQ.J) U(I,d) =1. 
IF(I.NE.J) U(I,d)=0. 
CONTINUE 

DO 1 K=1,NFILF 
MMM=0 

NF=10 + K 


NF: INPUT OF ROTATIONS FROM A FILE CONNECTED TO NF. 


READ (NF, 100) N 
DO 1 J=1,N 


Ms: NOT USED IN THIS PROGRAM, BUT USED IN ROTATING 
THE CONTINENTAL SEGMENTS. 
NROT: NUMBER OF ROTATIONS FOR ANY ONE CONTINENTAL 
SEGMENT. 


READ (NF, 101) LAT (1) ,LON(1) ROT (1) ,M, NROT 
IF (NROT. EQ. 0) NROT=1 

TF (M.EQ.0)M=1 

MM=MMM+1 

MMM=M+MM-1 

BACKSPACE NF 

READ (NF, 103) (LAT (I) ,LON(I), ROT (I) -1=1,NROT) 


MUL COMBINES UP TO 10 DIFFERENT EULER ROTATIONS TO ONE. 


CALL MUL(NROT,LAT,LCN,ROT,A) 
DO 1 I=MM,MMM 
DOmIeL=1,;3 

DO 1eLi=a1,3 

Riko Lt) =A (L, LL) 
CONTINUE 
WRITE(7, 100) MMM 

DO 2 I=1,MMM 

CALL MATRIX (B,U,U) 
DO 3 K=1,NFILE 

DO 4 L=1,3 
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DO 4 LL=1,3 

GUD PLL) =R (Kp IPL y1y) 
CONTINUE 

CALL MATRIX (A,C,B) 
CALL MATRIX(B,A,U) 
CONTINUE 


INVEUL CALCULTES (LAT,LON,ROT) FROM THE RESULTANT 
TRANSFORMATION MATRIX. 


CALL INVEUL(B,LLAT,LLON, RROT) 
TEXT CONTAINS THE NAMES OF THE CONTINENTAL SEGMENTS 
READ (1, 102) (TEXT (J) ,J=1,5) 


OUTPUT OF THE FINAL EULER ROTATIONS, IN FILE 6 
WITH THE CORRESPONDING NAMES FOR THE CONTINENTAL 
SEGMENTS, AND IN 7 IN A FORMAT SUITABLE FOR 
PERFORMING ROTATIONS CF CONTINENTAL SEGMENTS 
USING THE ROTATION PRCGRAM. 


WRITE(6, 200) (TEXT (J) -J=1,5) ,LLAT,LLON, RROT 
WRITE(7, 201) LLAT, LLCN, RROT 
CONTINUE 

FORMAT (1615) 
FORMAT (3F 10.0, 2110) 

FORMAT (5A4) 

FORMAT (3F10. 0) 
FORMAT (5A4,5X,3F10.2) | 
FORMAT (3F10. 2) 

STOP 

END 
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CALCULATION OF THE SUM OF THE SQUARES OF THE MOVEMENTS 

CF POINTS ON A SPHERE FROM ONE GEOLOGICAL PERIOD TO 

ANOTHER. IT IS ASSUMED THAT THE MOVENT IS PERFORMED 

AS AN EULER ROTATION, THUS GOING ALONG THE SMALLEST POSSIBLE 
DISTANCE AS MEASURED ALONG A SMALL CIRCLE. 


REAL LXAT (15,200) ,LXON (15,200) 

REAL LAT1(100) ,LON1(100) ,ROT1(100) , LAT2 (100) , LON2 (100) 
DIMENSION ROT2(100) 

DIMENSION A(3,3),NC (15),D (50) ,DX (50) 

DIMENSION SMIN(50) ,SLMIN(50) , SLOMIN(50) 

DIMENSION SMAX(50) ,SLMAX(50) , SLOMAX (50) 

DIMENSION CLMAX(15) ,CLOMAX(15) ,CLMIN (15) ,CLOMIN(15), 
*CX (15) ,CY (15) ,CZ(15) 

REAL LAND (25,5), LAT (15) ,LON(15) , ROS (15) 

REAL MAXD (15), MIND (15) 

DIMENSION NN (25) ,XLAT(15) ,XLON(15) , XROT (15) ,N1(25) 
DATA NN/3*1,5*0,2*1,4*0,4%1 ,4*0,1,0,1/ 

READ (4,105) ( (LAND (I,J) ,J=1, 5) ,1=1,25) 

FORMAT (5A4) 

READ(5,102) XMIL 


XMIL: NUMBER OF MILLION YEARS BETWEEN THE TWO 
GEOLOGICAL PERIODS. DEFAULT IS ONE HUNDRED. 


IF(XMILJEQ.0.) XMIL=100. 


WRITE(6, 210) XMIL 
FORMAT (/, "TIMESPAN IS',F6.0,2X,'MILL. YEARS',/) 


NC: CODE NUMBERS FOR THE CONTINENTAL SEGMENTS. 
CALCULATIONS ARE CNLY PERFORMED FOR THE SEGMENT WHICH 
HAVE THE CORRECT NUMBER. 11 NUMBERS MUST BE READ IN. 
THE CODES ARE: 1: NORTH AMERICA 

2: KOLYMA 

3: EUROPE 

4: GREENLAND 
: ASTA 

6: SOUTH AMERICA 
7: ANTARTICA 

8: AFRICA 

9: AUSTRALIA 

10: MADAGASCAR 

11: INDIA 


READ (5, 100) (NC (1) ,t=1, 11) 


1: INPUT EULER ANGLES AND POLES OF ROTATION FOR PERIOD 1, 
MOVEMENT IS RELATIVE TO 1. THERE ARE 25 DATA SETS. 
THESE ARE IN ORDER: NORTH AMERICA, KOLYMA, N. EUROPE, 
CASPIAN, IRELAND, ENGLAND, S. EUROPE, SPAIN, GREENLAND, 
ASIA(5 ELEMENTS), S -AMERICA, ANTARCTICA, AFRICA, 
AUSTRALIA, NEW GUINEA, Ne. CALEDONIA, NEW ZEALAND(2 


ELEMENTS), MADAGASCAR, ARABIA, INDIA. 
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2: INPUT OF EULER ANGLES AND ANGLES OF ROTATION FOR PERIOD 


ALL ROTATIONS ARE FROM THE PRESENT. 


READ (1, 102) (LAT1¢1) ,LON1(1) ,ROT1(I) ,I=1,25) 
READ (2, 102) (LAT2 (1) ,LON2 (I) , ROT2 (I) -I=1,25) 
FORMAT (3F10. 2) 

L=0 


CALCULATION OF EULER ANGLES AND ANGLE OF ROTATION 
FROM PERIOD 1.10 2. 


DO 20 I=1,25 
IF(NN(I).NE.1) GO TC 20 
L=L+1 

NN(L) =I 
LAT1 (L) =LAT1 (I) 
LON1(L) =LON1(1) 
ROT 1 (L) =- FOT 1 (1) 
LAT2 (L) =LAT2 (1) 
LON2 (L) =LON2 (I) 
ROT 2 (L) =ROT2 (1) 
CONTINUE 

DO 25 J=1,11 


INPUT OF THE COORDIANTES (LATITUDE (+NORTH) , LONGITUDE (¢+EAST) ) 
FOR THE POINTS TO BE ROTATED. | 

Nis THE NUMBER OF POINTS IN EACH CONTINENTAL SEGMENT. 
LXAT,LXON: THE LATITUDES AND LONGITUDES 


READ (3,100) N1 (J) 
N=N1 (J) 

READ (3,101) (LXAT (J,1) ,LXON(J,I) -1=1,N) 
CONTINUE 

DO 30 J=1,11 

XLAT (1) =LAT1(J) 

X LON (1) =LON1 (J) 

X ROT (1) =ROT1(J) 

XLAT (2) =LAT2 (J) 

XLON (2) =LON2 (J) 

XROT (2) =ROT2 (J) 

N=2 


MUL CALCULATES THE RESULTANT ROTATION FOR SEVERAL 
EULER ROTATIONS. 


CALL MUL(N,XLAT,XLCN,XROT,A) 
LAT (J) =XLAT (10) 

LON (J) =XLON (10) 

ROS (J) =XROT (10) 

CONTINUE 


ONLY COORDINATES BLOCKS WITH NC (I) =I,I=1,11 ARE 
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C USED IN THE CALCULATICNS. 
00735 )J=1,11 


ROTATION OF PRESENT COORDINATES TO PERIOD 1. 


ae 


IF(J.NE.NC(J)) GO TO 35 
X=LAT1 (J) 
Y=LON1(J) 
Z=-ROT1 (J) 
GAUL SEUI (x ,Y¥,2Z, A) 
N=N1 (J) 
DO 36 I=1,N 
CALL ROT (LXAT(J,1) ,LXON(J,I),A) 
36 CONTINUE 
35 CONTINUE 
100 FORMAT(16I5) 
101 FORMAT (10F8. 2) 


INPUT OF PARAMETERS TC MOVE PERIOD 2 HORIZONTALY 
RELATIVE TO PERIOD 1. 

SU TO SL IS THE LONGITUDE(DEGREES) RANGE OF MOVEMENT 
AND SDEL IS THE INCREMENT. 


YA O50 OO 


READ (5,101) SL,SU,SDEL 
M=(SU-SL) /SDEL+1 


CALCULATION OF SUM OF SQUARES OF MOVEMENTS FROM 
PERIOD 1 TO 2 ALONG SMALL CIRCELS. 


(2 i @ kl @ YS) 


DO 1 K=1,M 
D (K) =0 
SMAX (K) =0.0 
SMIN (K) =100000. 
DX (K) =SL+SDEL* (K~-1) 
DOEV7CRI=1, 11 
IF (NC (Kd) .NE.KJ) GO TO 17 
IF(MeNE.1) GO TO 18 
SMAX (K) =0.0 
SMIN(K) =100000. 
18 CONTINUE 
CALL SCIR (LAT (KJ) , LCN(KJ) ,RCS(KJ) ,X,¥,2,DX (K)) 
T2=N1(KJ) 
DO 2 L=1,12 
CALL LCIR (X,Y, Z,LXAT(KI,L) , LXON (KJ,L) , DIST) 
IF (DIST.~LT.SMAX(K)) GO TOS 


Q 


Cc MAX AND MIN VALUES ARE STORED. 
c 


SLMAX (K) =LXAT (KJ, L) 
SLOMAX (K) =LXON (KJ,L) 
SMAX (K) =DIST 

5 CONTINUE 
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IF (DIST.GT.SMIN(K)) GO TO 2 
SLAIN (K) =LXAT (KJ, L) 
SLOMIN (K) =LXON(KJ,L) 
SMIN(K)=DIST 

2 D (K) =D (K) +DIST**2 
IF(M.NE.1) GO To 17 
CLMAX (KJ) =SLMAX (1) 
CLOMAX (KJ)=SLOMAX (1) 
CLMIN (KJ) =SLMIN(1) 
CLOMIN (KJ)=SLOMIN (1) 
Ex (Kaj =x 
CY (KJ) =Y 
CZ (Kd) =Z 
MAXD (KJ) =SMAX (1) * (11. 2/XMIL) 
MIND (KJ) =SMIN (1) *(11.2/XMIL) 

17 CONTINUE 

1 CONTINUE 
IF(M.EQ.1) GO TO 80 
DMAX=0 


CONVERSION OF DISTANCE FROM DEGREES TO CM/Y 
ASSUMING A TIME SPAN CF XMIL MIL YEARS FROM 
PERIOD 1 TO 2. 


EOLA ©) 


DO 3 I=1,M 
SMAX (1) =SMAX (1) *(11.12/XMIL) 
SMIN (I) =SMIN (I) *(11.12/XMIL) 


3 IF(D(I).GT.DMAX) DMAX=D(I) 
DO 4 I=1,4 

a D(I)=D (I) /DMAX 
WRITE (6,200) 


WRITE (6,201) (DX(I) gD (I) ,SMAX (I) » SLMAX (I) ,SLOMAX(1), 
*SMIN (I) ,SLMIN (I) ,SLOMIN(I) ,I=1,M) 
200 FORMAT(/,"PARR. MOVE. DIST. SUM MAX MOVE. ', 
xt LAT LON MIN MOVE Lat LON‘) 
201 FORMAT (1X,F7« 1, 7X9 F604, 5X pF6 02, 1Xp2F9e 19 3X, F602,F 7019 F901) 


80 CONTINUE 


IF CALCULATIONS ARE MADE FOR A RANGE OF LONGITUDES 
THE PROGRAM STOPS HERE. IF CALCULATIONS ARE ONLY 
PERFORMED FOR ONE RELATIVE POSITION OF THE 
CONTINENTS IN THE TWO PERIODS (THE ONE GIVING 

THE MINIMUM IN THE SQUARE OF THE DISTANCES, IF 
POSSIBLE), NEXT STEP IS TO CALCULATE THE MINIMUM 


AND MAXIMUM VELOCITY VECTORS. 


SUS co Ee oe ak Gi  @ EL ew 


IF(M.NE.1) STOP 


CALCULATION OF COORDINATES OF TRACES OF MAX AND 
MIN MOVEMENT FOR CONTINENTS CHOSEN BY NC(T). 


DAA OA 


WRITE (6,202) 
202 FORMAT(* CONTINENT MAX MOVE Lat LON °, 


*"MIN MOVE LAT LON °*) 
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DO 75 I=1,11 

IF(NC(I).NE.I) GO TC 75 
WRITE(6, 203) (LAND (NN(I) ,J) ,J=1,5) ,MAXD(I) ,CLMAX (1), 
*CLOMAX (I) ,MIND (I) ,CLMIN(I) ,CLOMIN (1) 
CONTINUE 

FORMAT (5A4,6F8. 1) 

DO 60 KJ=1,11 

IF (NC(KJ).NE.KJ) GO TO 60 
ND=MAXD (KJ) *XMIL/10.4+1.5 
IF(ND.EQ.1) ND=2 

DO 50 J=1,ND 

X 1=CX (KJ) 

Y1=CY (KJ) 

Z1= (CZ (Kd) / (ND-1) ) *FLOAT (J-1) 
CALL EUL(X1,¥1,21,A) 

XX=CLMAX (KJ) 

YY=CLOMAX (KJ) 

CALL ROT (XX,YY,A) 

LAT1(J) =XX 

LON1 (J) =YY 

CONTINUE 

LL=75 


OUTPUT OF POINTS DEFINING THE VELOCITY VECTORS. 


WRITE(7, 100) ND, LL 
WRITE (7, 101) (LAT1(1) ,LON1(I) ,1=1, ND) 
ND=MIND (Kd) *XMIL/10.4+1.5 
IF(ND.EQ.1) ND=2 

DO 55 J=1,ND 

X1=CX (KJ) 

Y1=CY (KJ) 

XX=CLMIN (KJ) 

YY=CLOMIN (KJ) 

Z1= (CZ (KJ) / (ND-1) ) *PLOAT (J-1) 

CALL EUL(X1,¥1,21,A) 

CALL ROT (XX, YY,A) 

PATI) HX x 

LON2 (J) =YY 

CONTINUE 

WRITE(7, 100) ND, LL 

WRITE(7, 101) (LAT2 (I) -LON2 (I) ,1=1, ND) 
CONTINUE 

STOP 

END 
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CALCULATION OF THE POINTS OF A CIRCLE ON THE 

SURFACE OF THE EARTH GIVEN THE RADIUS AND THE 

CENTER. THE PROGRAM IS USED FOR CALCULATING ERROR CIRCLES 
AROUND PALEOMAGNETIC POLES. THE FILE WITH THE UNROTATED 
POLES (LAT,LON) (POSITIVE NORTH AND EAST) ALSO CONTAINS 
THE RADIUS OF THE ERROR CIRCLE R (DEGREES). THE ACTUAL 
ROTATED POLES ARE READ FROM A SECOND FILE. 


DIMENSION 1T(10),X (100) ,¥ (100) 
REAL LAT(10) ,LON(10),8(10) 
CON=57.29577951 

M=0 

NP=40 

CONTINUE 

READ (1,102, END=1) N, (T(I) ,I=1,10) 


1: COORDINATES OF THE ROTATED POLES OF OF A CONTINENTAL 
SEGMENT. N: NUMBER CF POLES IN EACH SEGMENT; Zs 
TITLE. 


READ (5, 10C) KZX 


5: COORDINATES OF THE UNROTATED POLES (NOT USED) AND 
THE RADIUS (DEGREES) OF THE CIRCLE. 


READ (5,101) (LAT (I), LON(I) ,R(I) -I=1,N) 
READ(1,101) (LAT (I) ,LON (I) ,I=1,N) 

DO 2 K=1,N 

LAT (K) =LAT(K) /CON 

LON (K) =LON(K) /CON 

R (K) =R (K) /CON 


CALCULATION OF THE POINTS QF THE CIRCLE. NP=40 
POINTS IS USED. 


CALL CIRCLE (NP,R(K) ,LAT(K) » LON (K) » X,Y) 
DO 3 L=1,NP 

X (L) =X (L) *CON 

Y¥ (L) =Y (L) *CON 

WRITE (2,102) NP, (T (I) ,T=1,10) 


2: OUTPUT FILE FOR THE COORDINATES OF TEE POINTS 
OF THE CIRCLE. 


WRITE (2,101) (X(I) -Y (1) -T=1,NP) 
M=M+1 

GO TO 5 

CONTINUE 


M: THE NUMBER OF GRCUFS CF POLES, NORMALLY 
THERE IS ONLY 1 IN EACH GROUP. 


WRITE(6,200) M 
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FORMAT (1615) 

FORMAT (10F8. 2) 

FORMAT (I5,10A4) 
FORMAT(*NUMBER OF POLES',15/) 
STOP 

END 
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PROGRAM TO SORT OUT TRAVEL TIME RESIDUALS ACCORDING 
TO A NUMBER OF SPECIFICATIONS. ALSO SURFACE PROJECTIONS 
OR PART THEREOF CAN BE CALCULATED. THE INPUTS ARE: 


as 


THE RESIDUALS WITH INFORMATION. COMES AS FOLLOWS: 
EVENT IDENTIFIER, EVENT NUMBER,STATION,PHASE IDEN- 
TIFIER, TRAVEL TIME RESIDUAL AND ERROR. FORMAT 

5 (A4,1X) ,2F6.0. 

A BLANK LINE INDICATES END OF DATA. 


STATION LIBRARY. IN THE ORDER: STATION IDENTIFIER, 
LATITUDE IN DEGREES(POSITIVE NORTH),LONGITUDE IN 
DEGREES(POSITIVE EAST) ,ELEVATION IN KM AND 
STATION LOCATION(NOT NESCESSARY FOR THIS PROGRAM). 
FORMAT (2X,A4,4X,3F10.3,12A4). 

A BLANK LINE INDICATES END OF DATA. 


EVENT LIBRARY. IN ORDER: DAY, MONTH, YEAR,HOUR, MINUTE, 
SECONDS, LATIUDE(POSETIVE NORTH) , LONGITUDE( POSITIVE 
EAST),DEPTH IN KM,MAGNETUDE, COMMENTS, EVENT IDENTIFI- 
ER EVENT NUMBER AND CCMMENTS. 

FORMAT (513, 3F10.3,F4.0,F4.1,6A1,1X,A4%,2X,A4,12A4) 

A BLANK LINE INDICATES END OF DATA. 


FILE FOR OUTPUT, CAN BE SPECIFIED DURING THE RUN OF 
THE PROGRAM. 


INPUT OF PARAMETERS TO CHOOSE THE RESIDUALS AND 
SORT THEM OUT. THE PROGRAM IS INTERACTIVE AND 
WILL ASK QUESTIONS. PARAMETERS CAN BE CHOSEN BY 
DEFAULT BY INPUTTING BLANKS(A RETURN CHARACTER). 
ANY PARAMETER IN FILE 1 CAN BE CHOSEN THAT WAY, 
E.G. IF A BLANK IS GIVEN INSTEAD OF A SERIES 

OF STATION IDENTIFIERS, ALL STATIONS IN THE 
FILE WILL BE CONSIDERED. 

IN THE REST OF THE PROGRAM, BLANKS MEANS THAT THE 
CORRESPONDING OPTION IS BYPASSED, E.G IF THE 
QUSTION “DEPTHS ? " IS ANSWERED WITH A BLANK, 

NO CONSIDERATION IS GIVEN TO THE DEPTHS. 


SELF EXPLANATORY. 


TPUT OF THE COORDINATES FOR THE STATIONS, EVENTS 
Re iore ice PROJECTICNS OF THE DEEPEST POINTS OF 
THE RAYS AND POINTS MARKING THE CENTRAL PART OF THE 
RAY. THE COORDINATES ARE SORTED OUT IN DIFFERENT 
GROUPS ACCORDING TO THE SIZE OF THE RESIDUALS. EACH 
GROUP HAVE AS A FIRST LINE THE NUMBER OF POINTS 
IN THE GROUP, THE SYMBOL NUMBER TO BE USED FOR THE 


POINT(FOR PLOTTING) AND A TITLE, THE NEXT LINES CONTAIN 


THE COORDINATES OF THE POINTS. 
FORMAT (215, 20A4) 
FORMAT (10F8.1) 
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8: COORDINATES OF THE POINTS GIVING THE RAY TRACES. 


oot 
—_ 
66 


231 


ME Ws 
31 


235 
32 


THESE ARE ALSO SORTED OUT LIKE THE POINTS IN FILE 
7, AND GROUPED ACCORDINGLY. THE FORMAT IS THE 
SAME AS FOR OUTPUT 7. 


IF TRAVEL TIMES HAVE BEEN COMPARED, E.G. THE P 
WITH THE PCP, THE CORRESPONDING RESIDUALS AND 
ERRORS CAN BE WRITTEN. 

FORMAT (4F8, 2) 


DIMENSION D(10),INPUT(5) , TIME (500) ,NST (500) ,SLAT (500) , SLON (50¢ 
*DATA2 (4,500) ,NNO (500), HLAT (500) , HLON (500) ,M(10,500) , KK(1C), 
*ERR (500) ,X (100) , ¥ (100) 

INTEGER PAR(5,100),SIGN(20) ,EMPTY,ZERO/® */, DATA1(5,500), 
*YES/S'YES '/ 

INTEGER OK,OK1,0K2,CK3 

REAL ZERO1/! t/ 

DIMENSION TITL1(5) ,NHVS(10) ,DEL (500) , DEPTH (500) , DEP (500) 

INTEGER PAR1(5,1) ,PAR2 (5,1) 

DATA NHVS/69,85, 83, 02, 03,00, 86,87,88, 105/ 


INPUT OF CHOOSING PARAMETERS 


DO 60 I=1,5 

DO 60 J=1,100 

PAR(I,J) =ZERO 

J=0 

WRITE (6, 231) 

FORMAT(*EVENT ID AND NUMBER ?°) 
J=J+1 

READ (5,100) PAR (1,4) , PAR (2,9) 
IF(PAR(1,J).NE.ZERO) GO TO 1 
J=0 

WRITE(6,232) 

FORMAT ("STATIONS ?°) 

J=J+1 

READ (5, 100) PAR (3,4) 

IF (PAR(3,J).NE.ZERO) GO TO 31 
J=0 

WRITE (6,233) 

FORMAT (* COMPONENTS 2%) 

eee R (4,0) 

READ (5, 100) PAR (4, 

RETR. GUN 1) RINE: ZERO} GO TO 32 
J=0 

WRITE(6,234) 

FORMAT ("PHASES ?') 

J=J+1 he at 

READ (5,100) PA ; 
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c 
Cc 
NT=1 
XA=0.0 
NREAD=0 
Cc 
Cc NT; NO OF RESIDUALS CHOSEN. 
C 


WRITE (6,251) 
251 FORMAT("ERROR AND ANOMALY RANGE EXCLUDED‘) 
READ (5, 106) TO, AMIN, AMAX 
IF(TO.EQ.0.) T10=10. 
2 READ (1, 100) (INPUT (I) ,I=1,5) , DELT,ER 
IF (INPUT (1).EQ.ZERO) GO TO 4 
CALL LOOK3(PAR, INPUT, OK) 
IF(OK.NE.1) GO TO 2 
IF(ER.GT.T0) GO TO 2 
IF (AMAX.GT.DELT.AND.AMIN.LT.DELT) GO TO 2 
TIME(NT)=DELT 
XA=XA+DELT 
ERR (NT) =ER 
DO 3 I=1,5 
3 DATA1(I,NT) =INPUT (I) 
NT=NT+1 
GO TO 2 
4 CONTINUE 
NT=NT-1 
XA=XA/NT 
CALL ADIV(NT,XA,TIME,AD) 
WRITE(6,201) NT, XA,AD 
201 FORMAT(* NUMBER OF RESIDUALS',I5,2X,"AVERAGE', F6.2, 
*2X,* AVERAGE DEVIATICN',F5.2) 


COMPARISON OF PARAMETERS. CAN BE DONE EITHER BEFORE 
DATA HAVE BEEN SELECTED ACCORDING TO DEPTH, DISTANCE, 
AND GRID OR AFTER. IN THE LATTER CASE, NPR MUST BE 
SET BQUAL TO *ZERO* IN THE FIRST RUN. 


CY QtO"] Ou 


NCOMP=0 
28 CONTINUE 
A1=0.0 
A2=0.0 
NCOMP=NCOMP+1 
WRITE(6,255) 
255 FORMAT(*INPUT OF COMPARATIVE PARAMETERS COMP, PHASE/COR, LIM ?') 
READ(5,107) NPP,NPR 
IF (NPR. EQ.ZERO) GO TO 1012 
NCOM P=NCOMP+1 
READ(5, 108) XCOR, XLIM 


NPP: COMPONENT E.G. SPEW. 


NPR: PHASE E.G. SCS ee 
XCOR: CORRELATION COE e 
XLIM: ACCEPTED ERROR IN CORRELATION EXCLUDING 
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C READING ERRORS;H. 


WRITE(6,218) PAR (4,1) ,PAR(5,1) ,NPP,NPR 
WRITE (6,277) 
277 FORMAT(*OUTPUT UNIT ?%) 
READ(5,105) IL 
NNEW=0 
REWIND 1 
DO 70 K=1,NT 
NBLOCK=0 
OK3=0 
DO 71 J=1,5 
PAR2 (J, 1) =DATA1({J,K) 
71 =9PAR1(J3,1) =DATA1(J,K) 
PAR1(4,1) =ZERO 
PAR1(5,1) =ZERO 
IF(NPP.NE.ZERO) PAR2(4,1)=NPP 
PAR2 (5,1) =NPR 
72 READ (1,100) (INPOUT.(I) ,I=1,5) , DELT, ER 
IF(INPUT(1).EQ.ZERO) GO TO 76 
CALL LOOK (1, PAR1,INEUT,OK1) 
CALL LOOK (1, PAR2, INPUT,OK2) 
IF(OK3.NE.1) GOTO 75 
IF(OK1.EQ.1) GO TO 74 
NBLOCK=NBLOCK+1 
DO 77 KB=1,NBLOCK 
77 ~+=BACKSPACE 1 
GO TO 70 
iS) ) EY(OKAcNE. M1) ©GO TO 72 
OK3=1 
74  NBLOCK=NBLOCK+t1 
IF(OK2.NE.1) GO TO 72 
IF (ABS (TIME (K-XCOR*DELT) .GE. (XLIM*ER+ERR(K))) GO TO 70 
IF(IL.NE. 0) WRITE (IL,219) (DATA1 (I,K) -1=1,5) » (INPUT (L) , L=4,5) 
*, TIME (K) , ERR (K) ,DELT,ER 
A1=A1+DELT 
A2=A2+TIME(K) 
WRITE (11, 221) TIME (K) ,ERR(K) , DELT, ER 
221 FORMAT (4F8. 2) 
NNEW=NNEW+1 
TIME (NNEW)=TINE(K) 
ERR (NNEW) =ERR (K) 
DO 80 I=1,5 
80 DATA1(I,NNEW) =DATA1 (1, K) 
70 CONTINUE 
76 CONTINUE 
NT=NNEW 
WRITE(6,257) NT 
220 FORMAT(*INPUT OF COORDIANTES, YES OR NO ?°) 


C 
C CALCULATION OF AVERAGE RESIDUAL 
c 

A1=A1/NT 

A2=A2/NT 
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WRITE (6,223) PAR(5,1),A2,NPR,A1 

FORMAT ("AVERAGE RESIDUAL FOR ',A4,F5.2,1X,*AND *,A4,F5, 2) 
CONTINUE 

IF(NREAD.NE.O) GO T0 29 

WRITE (6,220) 

READ (5,104) NO 

IF(NO.NE.YES) STOP 

NREAD=1 

NS=1 


NS: NO OF STATIONS. 
INPUT OF STATION LIBRARY. 


READ (2,102) NST(NS) -SLAT(NS) ,SLON (NS) 
IF (NST(NS).EQ.ZERO) GO TO 6 

NS=NS+1 

GO TO 5 

NS=NS-1 

WRITE(6,202) NS 


CHOTSE OF STATIONS 


DO 8 I=1,NT 
CALL LOOK 1(NS, DATA1(3,1) ,NST, INDEX) 
IF(INDEX.EQ.0) GO TO 7 
DATA2(1,1)=SLAT (INDEX) 

DATA2 (2,1) =SLON (INDEX) 

GO TO 8 

DATA2(1,1) =99. 

WRITE (6,203) DATA1 (3,1) 

CONTINUE 


INPUT OF EVENT LIBRARY. 


NE=1 


NE: NO OF EVENTS. 


READ (3,103) SLAT (NE) ,SLON (NE) ,DEP (NE), NST (NE) , NNO(NE) 
IF (NST(NE).EQ.ZERO) GO TO 10 

NE=NE+1 

GO TO 9 

NE=NE-1 

WRITE(6,204) NE 


C CHOISE OF EVENTS 


12 I=1,NT 
CALL LOOK (NE, DATA (1p 1) ¢ DATA (2,1) pNST, NNO, INDEX) 
IF(INDEX.FQ.0) GO TO 11 
DEPTH (I) =DEP (INDEX) 

DATA2 (3,1)=SLAT (INDEX) 
DATA2 (4,1) =SLON (INDEX) 
GO TO 12 
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11. - DATA2(3,1)=99. 
WRITE (6,205) DATA1(1,1) ,DATA1 (2,1) 
12 CONTINUE 


SORTING OUT RESIDUALS FOR WHICH COORDINATES WERE 
NOT FOUND. 


AANA 


J=0 
DO 52 I=1,NT 
TF (DATA2 (1,1) «BQ. 99.0.0R.DATA2 (3,1) -EQ.99.9) GO TO 52 
=J + 
TIME (J) =TIME(1) 
ERR (J) =ERR (I) 
DO 53 K=1,4 
53 DATA2(K,J)=DATA2 (K,1) 
DO 54 K=1,5 
54 DATA1(K,J)=DATA1(K,1) 
52 CONTINUE 
NT=J 
WRITE (6,252) 
252 FORMAT(*OUTPUT OF STATION, MIDPCINT OR EVENT COORDINATES , ', 
*'YFS OR NO ?%) 


. 
C CHOISE OF OUTPUT COORDINATES: IF YES IS INPUT, THE CORRESPONDING 
Cc COORDINATES ARE WRITTEN OUT. THE PARAMETERS ARE? 
C NEV: EVENTS. 
C NHA: POINT MIDWAY BETWEEN EVENT AND STATION. 
C NSTA: STATION 
c 
READ (5,104) NSTA,NHA,NEV 
IF(NSTAEQ. YES) WRITE(6,213) 
IF(NHA.EQ.YES) WRITE (6,214) 
IF(NEV.EQ.YES) WRITE(6,215) 
DO 13 I=1,NT 
CALL DIV(1,1,DATA2 (1,1) -DATA2 (2,1) ,DATA2(3,1I) ,DATA2 (4,1) ,X,Y) 
HLAT (1) =X (1) 
HLON (I) =Y (1) 
as) CONTINUE 
c 
Cc SELECTING DATA HAVING DEEPEST POINT OF RAY IN 
C A LAT LON SQUARE X1,X2 AND Y1,Y2. 
Cc 
Cc CHOISE OF DATA IN DEPTH RANGE H1 TO H2. 
C 
C CHOISE OF DATA IN DISTANCE RANGE D1 TO D2 
C 


WRITE(6, 261) 
261 FORMAT('DEPTH RANGE?) 
READ (5, 106) H1, H2 
WRITE (6,262) 
262 FORMAT('DISTANCE RANGE?') 
READ(5, 106) D1, D2 
NT1=0 
WRITE(6,237) 
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237 FORMAT (*GRID?*) 
READ (57212) X1,X2,Y1,¥2 
DO 73 I=1,NT 
IF ((X1+X2).EQ.0.) GO TO 41 
IF (HLAT (I).GE.X1.AND.HLAT (I) .LT.X2.AND.HLON(I). 
*GE.Y1./AND.HLON(I) .LIT.¥2) GO TO 41 
GO TO 73 
44 CONTINUE 
Ging(Hi+H2).EO.0.0)' Go TO 42 
IF (DEPTH (I) .GE.H1.AND. DEPTH (I).LT.H2) GO TO 42 
GO,.T0 73 
42 CONTINUE 
CALL DELAZG(DATA2 (71,1) ,DATA2 (2,1) ,DATA2 (3,1) ,DATA2(4,1I) ,AD, DUM 
IF((D1+0D2).EQ.0.) GO TO 43 
TF(AD.GE.D1.AND.AD.LT.D2) GO TO 43 
GO TO 73 
43 CONTINUE 
NTI=NT1+1 
HLAT (NT1) =HLAT (1) 
HLON (NT1) =HLON (1) 
DO 78 K=1,4 
PomeeDATA2 (Ki,NT1) =DATA2(K,1) 
DO 79 K=1,5 
79 DATA1(K,NT1) =DATA1(K,Z) 
TIME (NT1) =TIME (1) 
ERR(NT1) =ERR (1) 
DEPTH (NT1) =DEPTH (1) 
DEL (NT 1) =AD 
73 CONTINUE 
NT=NT1 
WRITE (6,257) NT 
257 FORMAT (*NUMBEF OF RESIDUALS ARE NOW*,I5) 
61 CONTINUE 
14 CONTINUE 
& CALCULATION OF AVERAGE RESIDUAL. 


XX=0. 


DO 15 I=1,NT 
15 XX=XX¢TIME(I) /NT 
CALL ADIV(NT,XX,TIME,AD) 
WRITE(6,207) XX,AD 
IF (NCOMP.EQ.1) GO TO 28 


Zo CONTINUE 
C 

C CALCULATION OF SURFACE RAY TRACES 
Ce 


IF(NO.NE.YES) GO TO 69 
WRITE(6,235) 

235 FORMAT (* RAY TRACES? *) 
READ(5, 100) NTR 
IF(NTR.NE.YES) GO T6705 
T=100 
DO 66 L=1,NT 
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CALL DIV(I,1,DATA2(1,1L) ,DATA2 (2 L) ,DATA2(3,L) ,DATA2(4,L),X,Y 
WRITE (8,105) f ol)}e el) (3eh), (4,1) ,X, Y) 
WRITE(8,212) (X(Id) ,¥(Id) , IJ=1,100) 

66 CONTINUE 

65 CONTINUE 


C THE CHOSEN DATA IS WRITTEN OUT 


WRITE(6, 253) 
253 FORMAT(*OUTPUT UNIT ?*) 
READ (5,105) IL 
IF(IL.EQ.0) GO TO 55 
WRITE (IL, 216) 
DO 16 J=1,NT 
I DEP TH=DEPTH (J) 
16 WRITE {IL, 208) (DATA1 (I,J) ,1=1,5), (DATA2 (K,J) ,K=1,4) ,HLAT (J) , HLON 
*, DEL (J) , IDEPTH, TIME (J) y ERR(J) 
55 CONTINUE 


Cc INPUT OF SORTING BCUNCDARIES 


WRITE (6,254) 

254 FORMAT (* INPUT OF SORTING BOUNDARIES,HOW MANY ?°*) 
READ(5, 105) NSYM 
IF(NSYM.EQ.0) GO TO 69 
WRITE(6,209) 

209 FORMAT(*SORTING BOUNDARIES, SMALLEST ONE FIRST ?°) 
READ (5,106) (D(I) , 1=1,NSYM) 
D(NSYM+1) =10. 


CORRECTING THE RESIDUALS FOR ERRORS, SO THE RESIDUALS 
ARE CENTERED AROUND THE MIDLE TWO SORTING BOUNDARIES. 


COL re 


DO 81 I=1,NT 

IF (ERR (I) -EQ.0.0) GO TO 81 

IF (TIME (I).LT.D(NSYM/2) ) TINE (1) =TIME(I) +ERR (I) 

IF (TIME (I).GT.D(NSYM/2+1) ) TIME (I) =TIME (I-ERR(T) 
84 CONTINUE 

DO 17 J=1,10 

KK (J) =0 

DOW dee t=1F, 500 
17 M (J, 1) =0 


c 
C SORTING OF THE RESIDUALS 
c 
NSYM=NSYM+41 
CALL SORT(NSYM,NT,D,TIME,M, KK) 
WRITE(6,211) (KK (1) -1=1,NSYM) 
N1=1 
WRITE(€, 306) 
@ 
Sey INPUT OF TITLE 
c 


BC6 FORMAT (*TITLE?*) 
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READ (5, 150) TITL1 
150 FORMAT (A4,4A4q) 
c 
C CALCULATION OF CENTRAL POINTS OF A PARTIAL RAYTRACE. 
‘6 
WRITE(6,110) 
110 FORMAT('CENTRAL RAY POINTS, HOW MANY DEGREES ?°*) 
READ (5, 106) RPOCINT 
IF(RPOINT.EQ.0.0) GO TO 67 
DO 85 I=1,NSYM 
K1=KK(T) 
IF(K1.EQ.0) GO TO 85 
DO 68 J=1,K1 


JI=M (I,J) 
€ 
C 40 POINTS IS USED FOR THE ENTIRE RAY. 
Cc 

NPOINT=40 


CALL DIV(NPOINT, 1,DATA2(1,JJ) ,DATA2(2,JJ) ,DATA2(3,J3), 
*DATA2(4,3J) ,X,Y) 
FRAC=(RPOINT/DEL (JJ) ) 
ISIDE=40. *(1.-FRAC) /2. 
ICEN=40-2*ISIDE 
I1=ISIDE+1 
I2=ISIDE+ICEN 
WRITE(7,301) ICEN, NHVS(I+3),D(I) ,TITL1 
WRITE (7,212) (X (19) ,¥ (IJ) , IJ=I1,12) 

68 CONTINUE 

85 CONTINUE 

67 CONTINUE 
IF(NEV.NE.YES) GO TO 20 


C SORTING OF EVENT COORDINATES. 
Cc 
300 FORMAT(215,*EV. UPPER LIMIT*,F5.1,1X,5A4) 
301 FORMAT(215,*HV. UPPFR LIMIT®,F5.1,1X,5A4) 
302 FORMAT(215,'ST. UPPER LIMIT*,F5.1,1X,5A4) 
DO 19 I=1,NSYM 
K 1=KK (I) 
IF(K1.EQ.0) GO TO 19 
WRITE(7,300) K1,1,D(1),TITL1 
How 18 bd=17K1 
JJ=" (1,0) 
SLAT (J) =DATA2 (3,d9) 
18 SLON (J) =DATA2(4,JJ) 
WRITE (7,212) (SLAT(L) -SLON(L) ,L=1,K1) 
19 CONTINUE 
20 CONTINUE 
IF(NHA.NE.YES) GO TO 23 


Cc SORTING OF HALF DISTANCE COORDINATES 


DO 22 I=1,NSYM 
K1=KK (I) 


n 4. 


g 


4“ 
‘ 


vee ai 


2ReAwTG REAM wot | “pertos. heat. eT 
| iL 


ms 
(OE. bind Oa tiales f AP EGE aero ven @ 


gertadd 4: tO aeRrOS sca hi a ROT TRA: 
: =~ ; a an y z ay cae i 


s 


re, 08 ¥ (nseoh | 
aan 


Bf nk oo tg ae 


ni Ak 


co 
AG Sh TOME OEE 0, eS = oi 


(Leas (U0, 
7145) Sabeutots Ly xt 
S\ (RATA Pohang \ COLe J) 
qox et 
e2cns. 
CHETH (EEG, eer ARRK, DE mpi oc 
total teth. CEP HOTEMY Nat Sane uh 


‘2 oa ee 
: ROSIE SRK : 
og OF 00 “aarti ati ¥ 


TeELGG00S. R881E 0 rio 
Re + a 4 

ohh Oey eee SD ee et ve3s rh 
4 abate hs be Verers aESaD og tA ISRs os 
ye” ARES TTIRLI Vas Tie eee 
; aoe 
| er aT OF ee 
| rat VT pt Tied ROME ETRE 
i : nyt SG Boge 


\ (tiskee 
ented eae CLD LL & ih aan 
Berar 
feet ud, (tp aete 4 r 
r ’ ey Ava) iia! ts 
: pike son TrHesy, Ae ce 
£5 0T Oo ean AARNE | 
PN CUERAGND NATALIE Ske gO om ‘ eres 
y nie ay - 
ae Le hi 


248 


IF(K1.50.0) GO To 22 
WRITE (7,301) K1,NHVS (I+3) ,D(I) ,TITL1 
DO 21 J=1,K1 
JJ=M (I,J) 
SLAT (J) =HLAT (JJ) 
21  SLON(J)=HLON (JJ) 
WRITE(7,212) (SLAT(L) ,SLON(L) ,L=1,K1) 
22 CONTINUE 
23 CONTINUE 
IF (NSTA.NE.YES) GO TO 26 


SORTING OF STATION CCORDINATES 


Oe? 5) t=4 INSYM 
K 1=KK (I) 
TP(K16£0.0}) GO To 25 
ISM=I+112 
WRITE (7,302) K1,1,D(1),TITL1 
Dem a J=1 KI 
JJ=M(I,J) 
SLAT (J) =DATA2(1,JJ) 
24 SLON (J) =DATA2 (2,JJ) 
WRITE (7,212) (SLAT(L) ,SLON(L) ,L=1,K1) 
25 CONTINUE 
26 CONTINUE 
69 CONTINUE 
241 CONTINUE 
100 FORMAT (5(A4,1X) ,2F6.-0) 
101 FORMAT (20A4) 
102 FORMAT (2X,A4,4X,2F10.0) 
103 FORMAT (25X,2F10.0,F4.0,11X,A4,2X,A4) 
104 FORMAT (3A4) 
105 FORMAT (I5) 
106 FORMAT(10F10.(0) 
107 FORMAT (2(A4,1X)) 
108 FORMAT(2F5. 1) 
202 FORMAT(* NUMBER OF STATIONS IN LIBRARY',15) 
203 FORMAT (*STATION *,A4,* NOT FCUND IN TABLE®) 
204 FORMAT("* NUMBER OF EVENTS IN LIBRARY*,15) 
205 FORMAT(*EVENT WITH SOURCE ',A4,* AND NUMBER *,A4,* NOT 
*F OU IN LIBRARY! 
207 PMR RV ERAGE Aer AND AVERAGE DEVIATION',2F5. 2) 
208 FORMAT(A4, 1X,4A4, 3( F501, 1X¢F6014 1X) p F501, 1X,13,1X P56 14 1X, F 3.1) 
211 FORMAT(* NUMBER OF NUMBERS IN EACH GROUP*,101I5) 
212 FORMAT(10F8. 2) , 
213 FORMAT(*STATION COORDIANTES ARE OUTPUT") 
214 FORMAT(*HALFWAY COORDINATES ARE OUTPUT’) 
215 FORMAT(*EVENT COORDINATES ARE OUTPUT’) 
216 FORMAT('* ARETE A ON aA STLO 
By DIST DEPTH RES 
218 Saat a OEE OF RESIDUALS WITH COMPARETIVE®, 
*t PARAMETERS'!, 4 (2X, A4) ) 
219 FORMAT(7(A4, 1X) ,2(2F8.2,2X) ) 
STOP 
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PROGRAM TO CALCULATE THE DIFFERENCE IN P AND AZIMUTH 
BETWEEN THE P WAVE AND THE CONVERTED PS WAVE, THE 
CONVERSION TAKING PLACE AT A DIPPING INTERFACE. 

IF THE S VELOCITY IN THE SECOND MEDIA IS SET TO ZERO 
ONLY THE CAHNGE IN THE RAY PARAMETER OF THE P WAVE 
IS CALCULATED. 


DIMENSION DELP (10), DELAZ (10) 
DIMENSION D(10) 

WRITE (6, 101) 

FORMAT(*NDIP AND NSTRK ?*) 
READ (5, 102) NDIP, NSTRK 
FORMAT (1015) 

WRITE (6,104) 
FORMAT("P,AZ,VO,V1,VS1 2°) 


NDIP: NUMBER OF DIFFERENT DIP*S, START WITH 0.5 AND 
INCREASES BY 0.5 DEGREES. MAXIMUM NUMBER IS 10. 

NSTRK: NUMBER OF DIFFERENT STRIKES USED, THE STRIKES 

USED WILL BE (360/NSTRK) *I,1=1,NSTRK+1. 
Ps RAY PARAMETER(SEC/DEG) OF THE INCOMING RAY. 
AZ: AZIMUTH (DEGREES POSETIVE CLOCKWISE FROM THE NORTH) 
OF THE INCOMING RAY. 

Vs VELOCITY (KM/SEC) OF RAY BEFORE THE INTERFACE. 

V1 P-VELOCITY OF RAY AFTER THE INTERFACE, 

VS13 S-VELOCITY OF THE CONVERTED P WAVE AFTER THE 

INTERFACE. 


READ (5,10C) P,AZ,-V0,V1,VS1 
FORMAT (6 F8. 2) 
NP=3 


IF P IS ZERO, 6 DIFFERENT TABLES WILL BE CALCULATED WITH 


THE P VALUES 3,4,5,6,7 AND 8. 
IF P IS NOT ZERO, ONLY ONE TABLE WITH THE P VALUE WILL 


BE CALCULATED. 


IF(P.EQ.0.0) NP=8 

DO 10 KP=3,NP 

IF(NP. NE. 3) P=KP 

WRITE (6,201) PZAZ,V0,V1,VS1 

FORMAT (//, 1X, "P=" ,F502,2X,!AZ=", F601, 2X ,1V=", F502, 
*2X, "VIE", F5.2,2k, 'VS1="/ F562/) 

DO 3 IS=1,NDIP 

D (IS) =0.5¥*IS 

CONTINUE ae 

WRITE (6,202) (D(I) ,1=1, 

Be cnsrnet ous aDr Pete ONESaIea07} 
N1=NSTRK+1 

Domo TAz=4,N1 

DO 1 IS=1,NDIP 

AROT=IS*0.5 

ALON=(IAZ-1) * (360«/NSTRK) 
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Pts Nb 


CALL DIP(P,AZ,V0,V1,AROT, ALON, PP, AZP) 
IF(VS1.EQ.0.0) GO TC 5 

CALL DIP(P,AZ,V0,VS1,AROT, ALON, PS,AZS) 
DELP (IS) =PP-PS 

DELAZ (IS) =AZS-AZP 

GO TO 1 

DELP (IS) =P-PP 

DELAZ (IS) =AZ-AZP 

CONTINUE 
WRITE(6,200) ALON, (DELP (I) ,DELAZ (I) ,I=1,NDIP) 
FORMAT (1X ,F501,3X,10(F50e2,F501,2X)) 
CONTINUE 

CONTINUE 

STOP 

END 
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SUBROUTINES 


SUBROUTINE ADIV(N,AV,X,AD) 


CALCULATION OF THE AVERAGE DEVIATION AD FOR N 
DATA POINTS WITH AVERAGE AV AND STORED IN THE 
ARRAY X. 


DIMENSION X(N) 
AD=0.0 

DO 1 I=1,N 
AD=AD+ABS (X(I-AV) 
AD=AD/N 

RETURN 

END 


SUBROUTINE BNDPAS (F1,F2,DELT,D,G) 
SUBROUTINE BY DAVE GANLEY ON MARCH 5, 1977. 


THE PURPOSE OF THIS SUBROUTINE IS TO DESIGN AND APPLY A 
RECURSIVE BUTTERWORTH EAND PASS FILTER (KANASEWICH, TIME SERIES 
ANALYSIS IN GEOPHYSICS, UNIVERSITY OF ALBERTA PRESS, 1975; SHANKS, 
JOHN L, RECURSION FILTERS FOR DIGITAL PROCESSING, GEOPHYSICS, V32, 
PPo33-5 01,' 1967). “IN ORDER TO DESIGN ‘THE FILTER A CALL MUST BE 
MADE TO BNDPAS AND THEN THE FILTER MAY BE APPLIED BY CALLS TO 
FILTER. THE FILTER WILL HAVE 8 POLES IN THE S PLANE AND IS 
APPLIED IN FORWARD AND REVERSE DIRECTIONS SO AS TO HAVE ZERO 
PHASE SHIFT. THE GAIN AT THE TWO FREQUENCIES SPECIFIED AS 
CUTOFF FREQUENCIES WILL BE -6DB AND THE ROLLOFF WILL BE ABOUT 
96 DB PER OCTAVE. A BILINEAR Z TRANSFORM IS USED IN DESIGNING 


THE FILTER TO PREVENT ALIASING PROBLEMS. 


COMPLEX P(4),S(8) ¢Z1,2Z2 
DIMENSION D(8),X{1) XC (3) ,XD (3) ,XE (3) 
DATA ISW/C/, TWOPI/6.2831853/ 


THIS SECTION CALCULATES THE FILTER AND MUST BE CALLED BEFORE 
BILTER IS CALLED 


F1 = LOW FREQUENCY CUTO FF (6 DB DOWN) 
F2 = HIGH FREQUENCY CUTOFF (6 DB DOWN) 
DELT = SAMPLE INTERVAL IN MILLISECONDS 
= WILL CONTAIN 8 Z DOMAIN COEFICIENTS OF RECURSIVE FILTER 


WILL CONTAIN THE GAIN OF THE FILTER 


Q 
i) 


DT=DELT/1000.0 
TDT=2.0/DT 
FDT=4.0/DT 
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ISwW=1 

P (1) =CMPLX(-. 3826834,. 9238795) 
P (2) =CMPLX(-. 3826 834,-.9238795) 
P (3) =CMPLX (-. 9238795, . 3826834) 
P(4) =CMPLX(-.9238795,-.3826834) 
W1=TWOPI*F1 

W2=TWOPI*F2 

WI=TDT¥*TAN(W1/TDT) 
W2=TDT*TAN(W2/TDT) 
HWID=(W2-W1) /2.0 

WW=W1*W2 

DO 19 I=1,4 

Z1=P (1) *HWID 

Z2=Z1*Z1-WW 

Z2=CSOQRT (22) 

S (I) =Z1+Z2 

S (1+4) =Z1-2Z2 

G=.5/HWID 

G=G*G 

G=G*G 

DON 9 1=1,7 72 
B=-2.0*REAL(S(T)) 
Z1=S (1) *S (I+1) 

C=REAL (21) 

A=TDT+BtC/TDT 

G=G*A 

D (I) = (C*DT-FDT) /A 

D (I+ 1) =(A-2.0*B) /A 

G=G*G 

FORMAT ('-FILTER GAIN IS *,F12.6) 
RETURN 

ENTRY FILTER (X,N,D,G,1G) 


DATA VECTOR OF LENGTH N CONTAINING DATA TO BE FILTERED 
FILTER COEFFICIENTS CALCULATED BY BNDPAS 


FILTER GAIN 
IG = 1 MEANS TO REMOVE THE FILTER GAIN SO THAT THE GAIN IS 


UNITY. 


Qw x 
ow ott 


TP (ISW.EQ.1) GO TO 31 
WRITE (6,6) 
FORMAT ('1BNDPAS MUST BE CALLED BEFORE FILTER‘) 


CALL EXIT 
APPLY FILTER IN FORWARD DIRECTION 


XM2=X(1) 

XM1=X (2) 

XM=X (3) 

POC) HK M2 

XC (2) =XM1-D (1) *XC (1) 

XC (3) =XM-XM2-D (1) *XC (2-D (2) FXC(1) 
XD (1) =XC (1) 

XD (2) =XC (2-D(3) *XD(1) 


CY Or@ 


34 


30 


36 


37 


She, 


44 
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XD (3) =XC (3-XC (1-D (3) *XD (2-D (4) *®XD (1) 
XEq1)=XD(¢1) 

XE (2) =XD(2-D (5) *XE(1) 

XE (3) =XD(3-XD (1-D (5) *XE (2-D (6) *XE(1) 

X (1) =XE(1) 

X (2) =XE (2-D (7) *X (1) 

X (3) =XE(3-XE(1-D(7) *X (2-D (8) *X (1) 
P0739 I=d.N 

XM2=XM1 

XM1=XM 

XM=X(T) 

K=I- ((I-1)/3) *3 

GO TO (34,35, 36),K 

M=1 

M1=3 

M2=2 

GO TO 37 

M=2 

M1=1 

M2=3 

GOTO 37 

M=3 

M1=2 

M2=1 

XC (M) =XM-XM2-D (1) *XC (M1-D (2) *XC (M2) 

XD (M) =XC (M-XC (M2-D (3) *XD (M1-D (4) *XD (M2) 
XE(M) =XD (M-XD(M2-D(5) *XE(M1-D (6) *XE (M2) 
X (I) =XE(M-XE (M2-D (7) *X (I-1-D (8) *X (I-2) 


FILTER IN REVERSE DIRECTION 


XM2=X (N) 
XM1=X (N-1) 

XM=X (N-2) 

XC (1) =XM2 

XC (2) =XM1-D (1) *XC (1) 

XC (3) =XM-XM2-D (1) ¥XC (2-D (2) * XC (1) 
XD (1) =XC (1) 

XD (2) =XC (2-D (3) *XD(1) 

XD (3) =XC (3-XC (1-D (3) *XD (2-D(4) *XD (1) 
XE(1)=XD(1) 

XE(2) =XD(2-D (5) *XE(1) 

XE (3) =XD(3-XD (1-D (5) *XE (2-D (6) *XE (1) 
X(N) =XE(1) 

X (N=1) =XE (2-D (7) *X(1) 

X (N-2) =XE(3-XE (1-D(7) *X (2-D (8) *X (1) 
DO 49 I=4,N 

XM2=XM1 

XM1=XM 

J=N-I+1 

XM=X (J) 

K=I-((1-1)/3) *3 

GO TO (44,45,46) ,K 

M=1 
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M1=3 

M2=2 

GO TO 47 

M=2 

M1=1 

M2=3 

GO TO 47 

M=3 

M1=2 

M2=1 

XC (M) =XM-XM2-D (1) *XC (M1-D (2) *XC (M2) 

XD (M) =XC (M-XC (M2-D (3) *XD (M1-D (4) *XD (M2) 
XE QM) =XD (M-XD (M2-D (5) *XE(M1-D (6) *XE (M2) 
X (J) =XE (M-XE (M2~D (7) *X (J+ 1-D (8) *X (J +2) 
IF (IG.NE.1) RETURN 

DO 59 I=1,N 

X (I) =X (Ip /G 

RETURN 

END 


SUBROUTINE CAZM(N,IREL,LAT,LON,CZ) 


SUBROUTINE BY JENS HAVSKOV SPRING 77 


CALCULATION OF AZIMUTH CORRECTION DUE TO 
NON PARRALEL LINES OF LONGITUDE AT 

ANY POSITION NOT ON THE EQUATOR. 

LAT,LON ARE THE POSITIONS OF THE POINTS, AND 
ALL CORRECTIONS ARE CALCULATED RELATIVE TO 
THE POINT LAT(IREL) , LCN(IREL) 


A 


R 


REAL CZ(10),LAT(10) ,LON (10) 
CDN=57.295779 

DO 1 I=1,N 

DEL=LON(I-LON(IREL) 

P=(90.- (LAT (I) *LAT(IREL)) /2) /CDN 
CZ (1) =DEL*COS (P) 

CONTINUE 

RETURN 

END 


SUBROUTINE CIRCLE (N,R,C1,C2,LAT,LON) 


POINT WITH COORDIANTES (C1,C2) ON A SPHERE IS 


SURROUNDED WITH N POINTS (LAT,LON) IN A DISTANCE 


FROM (C1,C2).- ALL CCORDINATES AND DISTANCES 


ARE IN RADIANS. 


™~ 
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REAL LAT (100) ,LON (100) 

CON=1. 5707963 

BC=R 

AB=CON-C1 

DO 1 I=1,N 

B=4*CON*1I/FLOAT (N-1) 

AC=COS (BC) *COS (AB) +SIN (BC) *SIN (AB) *COS (B) 
TP CAC.ET.~16.0) sAC=-1..0 

IF (AC.GT.1.0) AC=1.0 

AC=ARCOS (AC) 

A= (COS (BC-COS (AC) *COS (AB) ) / (SIN (AC) *S IN (AB) ) 
PECAsGT. 1.0) A=1.0 

IF(A.LT.-1.0) A=-1.0 

A=ARCOS (A) : 

LAT (I) =CON-AC 

IF(B.eGT.2¥*CON) LON(I)=C2-A 
IF(B.LT.2*CON) LON(I)=C2+A 

CONTINUE 

RETURN 

END 


SUBROUTINE CURVE(D1,D2,AZ21,AZ2,AZ,R,X) 


SUBROUTINE BY JENS HAVSKOV SPRING 77 


X (KM) IS THE CORRECTION IN DISTANCE A SPHERICAL 
WAVE HAS TO TRAVEL FROM STATION (1) TO (2) COMPARED 
TO WHAT IT WOULD HAVE TRAVELLED AS A PLANE WAVE. 

X IS ALWAYS POSETIVE. D1 AND D2 ARE DISTANCES (KM) 
FROM A REFERENCE POINT TO (1) AND (2), AZ1 AND AZ2 
ARE THE CORRESPONDING AZIMUTHS (DEG) AND R (DEG) 
AND AZ (DEG) ARE DISTANCE AND AZIMUTH FROM THE 
REFERENCE POINT TO THE SOURCE. 


RAD=0.01745329 
AAZ1=(AZ1-AZ) *RAD 
AAZ2=(AZ2-AZ) *RAD 


DD IS DISTANCE FROM STATION TO STAION AT A RIGHT 
ANGLE TO THE RAY. 


DD1=ABS (D1*SIN (AAZ1) ) * (RAD/111. 2) 
DD2=ABS (D2*SIN(AAZ2) ) * (RAD/111. 2) 


R IS DISTANCE FROM SOURCE TO STATION 


R1= (R-D1*COS (AAZ1)/111.2) *RAD 
R2= (R-D2*COS (AAZ2) /111.2) *RAD 


TH IS THE APATURE FOR THE TWO STATIONS 
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TH1=2*ARSIN(SIN(DD1/2) /SIN(R1)) 
TH2=2*ARSIN (SIN (DD2/2) /SIN(R2) ) 


CALCULATE X 


IF(ABS (TH1).LT.0.005) GO TO 1 
A1=ARCOS (COS (R1) *SIN(TH1)) 
X1=ARCOS (COTAN (A1) *COTAN (TH1)) 
GO TO 4 

X1=R1 

CONTINUE 

IF (ABS (TH2) .LT.0.005) GO TO 2 
A2=ARCOS (COS (R2) *SIN(TH2) ) 
X2=ARCOS (COTAN (A2) *COTAN (TH2) ) 
GO TO 3 

X2=R2 

X= (ABS (R1-R2+X2-X1) )*(111.2/RAD) 
R1=R1/RAD 

R2=R2/RAD 

THI=TH1/RAD 

TH2=TH2/RAD 

RETURN 

END 


SUBROUTINE DEL(LAT1,LON1,LAT2,LON2,AD) 


CALCULATION OF THE DISTANCE IN DEGREES D BETWEEN 
TWO POINTS ON A SPHERICAL FARTH. THE COORDINATES OF 


THE TWO POINTS ARE LAT1,LON1 AND LAT2,LON2,. 
ANGLES ARE IN DEGREES. 


REAL LAT1,LON1,LAT2,LON2 
CDN=57.295778 
SL1=LAT1/CDN 
SL2=LAT2/CDN 
OL1=LON1/CDN 
OL2=LON2/CDN 
CON=1.57079 
A=LON2-LON1 

A=ABS(A) 
IF(A.GT.180.) A=360.-A 
A=A/CDN 

CD=CON-SL2 


BD=CON-SL1 
AD=COS (CD) *COS (BD) +SIN (CD) *SIN (BD) *COS (A) 


IF (AD.LT.-1.0.AND.AD-GT.-1.02) AD=-1.0 
TF (AD.GT. 1.0. AND.AD«LT.1.02) AD=1.0 
AD=ARCOS (AD) *CDN 

RETURN 

END 
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SUBROUTINE DEGKM(NN,ELAT, SLAT, DLTA,CDLTA) 


CONVERTS DISTANCE IN DEGREES TO DISTANCE IN KMSe 


101 


100 


DIMENSION SLAT (200) ,DLTA(200) ,CDLTA (200) 
XMJ=6378.4 

XMN=6356.9 

S XMJ=XMI*XMI 

S XMN=XMN*XMN 

T=0 

I=I+1 

IF (I.GT.NN) RETURN 

IF (DLTA(IpsGT.10.0) Go To 100 

DFLAT=ELAT-SLAT (1) 
ALAT=ELAT-DFLAT/2. 

SNLAT=SIN (ALAT) 

SNLAT=SNLAT*SNLAT 

CLAT=COS (ALAT) 

CLAT=CLAT*CLAT 

RDSQ=SXMJ*SXMN/ (SXMJ*SNLA T+SXMN*CLAT) 

RAD=SQRT(RDSQ) 

CDLTA (I) =RAD*®DLTA (1) /57. 295778 

GO TO 101 

CDLTA(I) =111.2*DLTA (I) 

GO TO 101 

END 


SUBROUTINE DELAZG(LAT1,LON1,LAT2,LON2,AD,KM,AZ) 


SUBROUTINE BY JENS HAVSKOV FEB 77 


CALCULATION OF THE GEOCENTRIC DISTANCES D(DEG), KM(KM) AND 
AZIMUTH AZ(DEG) BETWEEN TWO POINTS ON A SPHERICAL EARTH. 

THE COORDINATES OF THE TWO POTNTS ARE LAT1,LON1 AND LAT2,LON2. 
ALL ANGLES ARE IN DEGREES AND AZ IS RELATIVE TO (LAT1,LON1). 


REAL KM, LAT1,LON1,LAT2,LON2 
DIMENSION SL(1),DL(1),CDL(1) 
CDN=57. 295778 
SL1=LAT1/CDN 
SL2=LAT2/CDN 
SLI=ATAN (0.993277*TAN(SL1)) 
SL2=ATAN (0. 993277*TAN(SL2) ) 
CON=1. 5707963 
A=LON2-LON1 
A=ABS(A) 
IF (A.GT.180.) A=360.-A 
A=A/CDN 
CD=CON-SL2 
=CON-SL1 
AD=COS (CD) ¥COS (BD) +SIN (CD) *STN (BD) *COS (A) 


IF(AD.LT.-1.0.AND.AD.GT.-1.02) AD=-1.9 
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IF (AD.GT.1.0.AND.AD.LT.1.02) AD=1.0 
AD=ARCOS (AD) 

IF(AD.LT.0.000001) GO To 10 

AZ= (COS (CD-COS (BD) *COS (AD)) / (SIN (BD) *SIN (AD) ) 
IF(AZsLT.+1.0.AND.AZ.GT.-1.02) AZ=-1.0 
IF(AZ.GT.1.0.AND.AZeLT.1.02) AZ=120 
AZ=ARCOS (AZ) *CDN 

AD=AD*CDN 

DL (1) =AD 

SL(1)=SL1 

N=1 

CALL DEGKM(N,SL2,SL,DL,CDL) 

KM=CDL (1) | 

IF(LON2.LT.LON1) AZ=360.-AZ 

GO TO 11 : 

RZ=0- 

AD=0. 

KM=0. 

CONTINUE 

RETURN 

END 


CALCULATION OF THE CHANGE IN THE RAY PARAMETER P 
(SEC/DEG), AND AZIMUTH(DEG) AZ A RAY UNDERTAKES BY 
PASSING A DIPPING INTERFACE. THE INTERFACE STRIKES 
ALONG A LINE WITH AZIMUTH ALON (DEG), AND THE 
INTERFACE IS DIPPING DCWN AROT DEGREES IN AZIMUTHAL 
DIRECTION ALON+90 DEGREES. THE RESULTANT RAY 
PARAMETER AND AZIMUTH IS PO AND AZO. 


SUBROUTINE DIP(P,AZ,V0,¥1,AROT,ALCN,PO, AZO) 
DIMENSION A(3,3),B(3,3)¢21(3) »P2(3) »P3 (3), P4(3) 
PT=3.1415926535 

CON=P1I/180. 

AAO=ARSIN (P¥(V0/111219493)) 

AAZ=PI-AZ¥*CON 

SLON=180.-ALON 

ROT=AROT 

SLAT=0.0 


CALCULATION OF TRANSFORMATION MATRIX. 


CALL EUL(SLAT,SLON,KOT,A) 


P1 IS THE SO CALLED RAY VECTOR OF THE INCOMING RAY 
IN THE BASIC COORDINATE SYSTEM, P2 THE RAY VECTOR IN 
THE COORDINATE SYSTEM OF THE SLOPING INTERFACE 
BEFORE TRANSMISSION, P3 AFTER TRNASMISSION AND P4 
IS THE RAY VECTOR OF THE TRANSMITTED RAY IN THE 

: NATE SYSTEM. 
Steer are IS THE CONVENTIONAL KAY PARAMETER 
OF THE INCOMING RAY IN THE BASIC COORDINATE SYSTEM. 
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P1(1) =SIN (AAO) *COS(AAZ) /VO 
P1(2) =SIN (AAO) *SIN(AAZ) /VO 
P1(3) =COS (AAO) /VO 

DO 10 T=1,3 

P2 (TI) =0.0 

P4 (I) =C.0 

DO 1 J=1,3 

DOnmal k=1 3 

P2(J) =A(J,1) *P1(I) +£2 (J) 
COAO=ABS (P2 (3) *VQ) 
SOAO=SQRT (1=COA0**2) 

P3 (1) =P2(1) 

P3(2) =P2 (2) 

COA 1=SQRT (1- (SOAO*V1/V0) **2) 
P3(3)=COAT/V1 

DON2Z 1 J=1, 3 

DO 2 T=1,3 


THE INVERSE MATRIX. 


DO/e3 NES 143 
P4(J)=B(Jd,1) *P3( 1) +24 (J) 
PO=SQRT(P4(1) **2+P4 (2) **2) 
AZO=ATAN2 (P4 (2) ,P4(1)) 
AZO=AZO/CON 

AZO=180.-AZO 
PO=P0*111.19493 

RETURN 

END 


CALCULATION OF COORDINATES (LAT,LON), WHICH ARE BETWEEN 
BETWEEN THE POINTS WITH COORDINATES (LAT1,LON1) AND 
(LAT2,LON2). THE POINTS ARE CHOSEN ALONG THE GREAT 
CIRCLE GIVING THE SHORTEST DISTANCE BETWEEN THE TWO 
GIVEN POINTS, AND THE DISTANCE IS EQUALLY DIVIDED BY N+t1. 
COORDINATES MUST BE GIVEN AS LAT(+NORTH), LON(+EAST). 
LATTITUDES MUST HAVE VALUES <-180 TO +180 OR 0 TO 360, 


BUI NOT MIXED. 
COORDINATES ARE IN DEGREES IF M=1, AND IN RADIANS IF M=2. 


IF N EQ 0 ONLY THE DISTANCE IS CALCULATED, THE RESULT 
BEING IN LAT(1).- 
SUBROUTINE DIV(N,M,LAT1,LON1,LATZ, LON2,LAT, LON) 
REAL LAT1,LON1,LAT2,LON2, LAT (100) , LON (100) 


NCH=N 

TF(NeEQ.0) N=1 
TF(M.NE.1) GO TO 20 
GON=576295778 
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LAT1=LAT1/CDN 
LAT2=LAT2/CDN 

LON1=LON1/CDN 

LON2=LON2/CDN 

CONTINUE 

CON=1.57079 

A=LON2-LON1 

IF{A) 1, 1,2 

CD=CON-LAT2 

BD=CON-LAT1 

Y2=LON1 

A=-A 

GO TO 7 

CD=CON-LAT1 

BD=CON-LAT2 

Y2=LON2 

CONTINUE 

DO 10 I=1,N 

IF (SIN(BD).EQ.0.) GO TO 3 

IF (SIN(CD).EQ.0.) GO TO 4 

AD=COS (CD) *COS (BD) #SIN (CD) *SIN( BD) *COS (A) 
IF (AD.LT.-1.0.-AND-AL.GT.-1.05) AD=-1.0 
IF(AD.GT.1.0-AND.AD.LT.1.05) AD=1.0 
AD=ARCOS (AD) 

IF(NCH.EQ.0) GO TO 40 

ADD=AD*I/ (N+1) 

C= (COS (CD-COS (BD) *COS (AD) ) / (SIN (BD) *SIN(AD)) 
IF (C.LT.-1.0.AND.C.GT.-1. 05) C=-1.0 
TE(CSGTL 1504 ANDSC.LT.1.05)C=1.0 
C=ARCOS(C) 

D=COS (BD) *COS (ADD) +SIN (BD) *SIN (ADD) *COS (C) 
TF(D-LT.-1.0.AND.D.GT.-1. 05) D=-1.0 
IF(D.GT.1.0.AND.D.LT.1-05) D=120 
D=ARCOS (D) 

AH=SIN (ADD) *SIN(C)/ (SIN(D)) 
IF(AH.LT.-1.0.AND.AH.GT.-1.05) AH=-1.0 
IF (AH.GT.1.0.AND.AH.sLT.1.05) AH=1.0 
AH=ARSIN (AH) 

GO TO 6 

D=(CD/ (N+ 1) ) *I 

TPANCH S20. 0) G02 TO, 38 

GO TO 5 

D=I*BD/ (Nt1) 

IF(NCH.EQ.0) GO TO 38 

AH=0. 

CONTINUE 

LAT (1) =CON-D 

LON (I) =¥2-AH 

IF ((A*CDN).GT.180.) LON{I) =Y2+AH 
IF(M.EQ.2) GO TO 10 

LAT (I) =LAT (I) *CDN 

LON (I) =LON (I) *CDN 

CONTINUE 

GO TO 50 
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AD=CD 
GO TO 40 
AD=BD 
LAT (1) =AD 
IF(M.EQ.1) LAT (1)=LAT(1) *CDN 
CONTINUE 
IF(M.NE.1) GO TO 30 
LAT 1=LAT1#CDN 
LON1=LON1*CDN 
LAT2=LAT2*CDN 
LON2=LON2¥*CDN 
CONTINUE 
RETURN 
END 


SUBROUTINE ELIP(F,H,DEL,T) 


CALCULATION OF THE J-B ELLIPTICITY CORRECTION T, WITH 
INPUT OF THE J-B FUNCTION F(DEL) (DEL IS EPICENTRAL 
DISTANCE), AND THE SUM OF THE HEIGHTS H=HOtH1 ABOVE 
THE MEAN SPHERE. HO IS THE HEIGH OF THE SOURCE AND 
HTVOF THE RECIEVER, UNIT: METERS. 

P(DEL) IS THE VALUES CF F FOR DEL=0,10,20...6.180. 


DIMENSION F(19) 
DO ted=1,.19 

DI=FLOAT (J-1) *10 

TF (DEL.GT.DT) GO TO 1 

ELL=F (J- (F (J-F (J-1) ) *(DI-DEL) /10 
P=H*ELL 

GO TO 2 

CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE EUL(B,C,D,A) 


CALCULATION OF THE TRANSFORMATION MATRIX A FOR AN EULER 
ROTATION WITH POLE (B,C) (DEGREES, POSITIVE NORTH AND 
EAST) AND ANGLE OF ROTATION D (DEGREES, POSITIVE 


ANTICLOCKWISE). 


REAL NX,NY,NZ 
DIMENSION A({(3,3) 
B=90.-B 

Ce=57. 2957795 
O=B/CC 

P= /CC 

@=D/CC 
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DIRECTION COSINE WITH RESPECT TO x-AXIS 
DIRECTION COSINE WITH RESPECT TO Y-AXIS 
DIRECTION COSINE WITH RESPECT TO Z-AXIS 
NX=SIN (0) *COS(P) 


NY = SIN(O) *SIN(P) 

NZ = COS (0) 

A(1,1) = COS (Q) #+NX**2* (1-COS (Q)) 

A(1,2) = NX*NY* «1-COS(Q) - NZ*SIN («Q) 

A(1,3) = NX¥*NZ*(1-COS(Q)) + NY*SIN(Q) 

A(2,1) = NX*NY*(1-COS(Q))+NZ*SIN(Q) 

A(2,2) = COS(Q) + NY**2* (1 - COS (Q)) 

Ee, = NY*NZ*(1-CCS (Q) -NX*SIN(Q) 
A(3,1) = NZ*NX*(«(1-COS(Q) -NY*SIN(Q) 
A(3,2) = NZ*NY*(1-CCS(Q)) #+NX*SIN(Q) 
A (3, 3) =COS (Q) +NZ**2* (1-COS(Q)) 

RETURN 

END 


SUBROUTINE INVEUL(A,LAT,LON, ROT) 
MATRIX A(3,3) IS GIVEN FOR AN EULER ROTATION, 
THE CORRESPONDING COORDINATES (LAT,LON) FOR 
THE EULER POLE, AND THE ANGLE OF ROTATION ROT 
IS CALCULATED. COORDINATES ARE IN DEGREES AND 
ARE POSETIVE NORTH AND EAST. ANGLE OF ROTATION 
IS POSETIVE ANTICLOCKVISE. 


DIMENSION A(3,3),B(3,3) 

REAL LAT, LON 

C=57.29579513 

ROT= (A (1,1) +A (2,2) +A (3,3-1) /2 
ROT=ARCOS (ROT) 

IF(ROT*C.LT.0.11) GO TO 15 

X=-A (1,3) *(A (2, 27-1) +4 (1,2) ¥A (2, 3) 
Y=-A (2,3) *(A (1, 1-1) +A (1, 3) *A (2, 1) 
Z=(A(1, 1-1) *(A (2, 27 1-A (1,2) *A (2, 1) 
XY=SORT (X*¥*2+Y **2) 


TEST IF COLAT=0 
IF (ABS (X) tABS(Y) -LT.(10E-10)) GO TO 22 


TEST IF COLAT=90. RCUND OFF ERRORS PREVENT Z 
TO BE ZERO AND THE ERROR INCRESE WITH ROT, 


THEREFORE MULTIPLY BY COS(ROT) 


LF (ABS (Z) *COS (ROT) «LT. (10E-9)) GO TO 20 
COLAT=ATAN2(XY,2) 

LON=ATAN2 (Y¥,X) 

GO TO 21 

CONTINUE 

COLAT=0.0 

LON=0.0 
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GO TO 21 


ALTERNATIV CALCULATION OF COLAT, WHEN COLAT 
IS CLOSE TO 90 


O8O.60-4O 


20 COLAT=90./C 
LON=ABS (A (1, 1-COS (ROT) ) /(1- Cos (ROT) ) 


Cc 
C TEST IF LON=90 
‘@ 

IF(LON.LT. (10EF-6)) LON=0. 

LON=SQRT (LON) 

LON=ARCOS (LON) 
@ 
C CHECK IF LON IS POSETIVE OR NEGATIVE. 
Cc 


IF(A(1,2) LT. 0.) LCN=-LON 
21 CONTINUE 

ROT=ROT*C 

LON=LON*C 

LAT=90.-COLAT*C 


CHECK IF POLE IS ON NORTHEREN OR SOUTHEREN HEMISPHERE, 


ome n@) 


CALL TESTEU (LAT,LON,ROT,A) 
GO TO 16 

15 CONTINUE 
LAT=0. 
LON=0. 
ROT=0. 

16 CONTINUE 
RETURN 
END 
SUBROUTINE TESTEU(LAT,LON,ROT,A) 
REAL LAT,LON 
DIMENSION A(3,3),B(3,3) 
CALL EUL(LAT,LON, ROT,B) 
LAT=90.-LAT 
po t= 143 
DOATMW=1,3 
F=ABS (A (1,J-B(I,J)) 
IF(F.GT.0.01) GO TO 2 

1 CONTINUE 
GO TO 3 

2 CONTINUE 


C FLIP POLE TO THE OPPOSITE HEMISPHERE. 


LAT=-LAT 

LCN=LON+ 180. 

IF (LON.GT.180.) LC N=LON-360 
3 CONTINUE 

RETURN 

END 
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SUBROUTINE LCIR (LAT, LON, ROT, SLAT, SLON, DIST) 


CALCULATION OF THE DISTANCE DIST ALONG A SMALL 
CIRCLE PATH STARTING IN (SLAT,SLON), AND 
DETERMINED BY AN EULER ROTATION WITH POLE 
(LAT,LON) AND ANGLE CF ROTATION ROT (POSE- 

TIVE ANTICLOCKWISE). ALL ANGLES ARE IN 
DEGREES, POSETIV NOFTH AND EAST. 


REAL LAT,LON 
CDN=57. 29578 

X1=LAT 

X2=SLAT 

Y 1=LON 

Y2=SLON 

GALD. DEL UX1,¥ 1,02, ¥2,D) 
D=D/CDN 
DIST=SIN(D) *ROT 
RETURN 

END 


SUBROUTINE LOOK(N, FAR, INPOT, OK) 


5 ALPHA NUMERICAL PARAMETERS INPUT(1-5) ARE GIVEN. 
THEY ARE COMPARED TO A SET OF N BY 5S PARAMETERS 
PAR(1-5,1-N), AND IF CNE OF THE N PARAMETER SETS 
PAR(1-5,1) MATCH WITH INPUT (1-5), THE VARIABLE 

OK IS RETURNED WITH THE VALUE 1, OTHERWISE ZERO. 
BLANKS IN A VALUE OF PAR MEANS THAT THAT ELEMENT 
BY DEFAULT IS MATCHED WITH THE CORRESPONDING VALUE 


OF INPUT. 


INTEGER PAR(5,100), INPUT (5),OK,ZERO/! t/ 
OK=0 

Powe Ja 1, N 

HOmI el =1:,,5 

IF(PAR(I,J) ~EQ.ZERO) GO TO 1 

IF (PAR (I,J) -NE.«INPUT(I)) GO TO 2 
CONTINUE 

OK=1 

GO TO 4 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE LOOK1(N,NNO,ENO, INDEX) 


N ARRAY FLEMENTS ENC (1) (FORMAT (A4)) IS SEARCHED 
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FOR THE ELEMENT NNO (FORMAT (A4)). IF FOUND, INDEX 
RETURNS THE INDEX VALUE FROM ENO(I), IF NOT, 
INDEX=0. 


INTEGER ENO (500) 

INDEX=0 

DO 1 I=1,N 

IF (ENO(I).NE.NNO) GO TO 1 
INDEX=I 

GO TO 2 

CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE LOOK2(N,NNO,NSO, ENO, ESO, INDEX) 


N ELEMENTS ENO(I) AND ESO(I) ARE COMPARED TO NNO AND 
NSO RESPECTIVE. IF BOTH FIT, INDEX IS RETURNED WITH 
THE CORRESPONDING INDFX VALUE OF ENO AND ESO. OTHER- 
WISE INDEX IS ZERO. 


INTEGER ENO (500), ESC (500) 
INDEX=0 

DO 1 I=1,N 

IF (ENO (I).NE.NNO) GC TO 1 
IF(ESO(I) -NE.NSO) GO TO 1 
INDEX=I 

GO TO 2 

CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE LOOK3( PAR, INPUT, OK) 


5 ALPHA NUMERIC PARAMETERS INPUT(5) IS COMPARED 

TO ANY COMBINATION CF 5 PARAMETERS PAR(5,N). IF 
CNE OF THE N COMBINATIONS MATCH THE INPUT(5) 
COMBINATION, THE RETURN VALUE OF OK [IS 1, 
OTHERWISE 0. BLANKS IN PAR INDICATES ACCEPTANCE BY 


DEFAULT EXCFPT IN ELEMENTS PAR(I,1). 


INTEGER PAR(5,20) ,OK,INPUT(5) ,ZERO/* Wi 
OK=0 

DOs elas 5 

DO. 2,0 =A, 20 

LF(J.GT.1.AND.PAR (I,J) -EQ.ZERO) GO TO 1 

IF (INPUT (I) «EQ-PAR (I,J) -ORs PAR(I,1)-EQ.ZERO) GO TO 3 


CONTINUE 
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GO TO 1 
OK=OK+1 

CONTINUE 
IF(OK.LT.5) OK=0 
IF(OK.EQ.5) OK=1 
RETURN 

END 


SUBROUTINE MATRIX (A,B,C) 
pee EE TCATION OF THO 3-DIMENSIONAL MATRICES, 

=B*C 

DIMENSION A(3,3) ,B(3,3),C (3,3) 

DO 1 N=1,3 

DO 1 M=1,3 

A (N,M)=0. 

DO 1 J=1,3 

A(N,M)=B(N,J) *C(J,M) +A (N,M) 

CONTINUE 

RETURN 

END 


SUBROUTINE MELIP(N, LAT1,LON1, LAT2,LON2,F,RDP, DEL,T) 


CALCULATION OF J-B ELLIPTICITY CORRECTION OF MULTIPLE SURFACE 
REFLECTED) PHASES» LIKE PPE? OR SCS3., 


N; NUMBER OF SURFACE REFLECTIONS, IS ZERO FOR NO REFLECTION. 
LAT1,LON1,LAT2,LLON2: COORDINATES IN RADIANS OF EPICENTER AND STA 
Fs; J-B'S ELLIPTICITY TABLE FOR THE CORRESPONDING NON REFLECTED PH 
LIKE IN THE CASE OF PPP, THE TABLE FOR P.j VALUES OF F ARE GIVEN F 
THE DISTANCES 0,10,20....180 DEGREES 

RDP; THE DEPH OF THE EATHQUAKE 

DEL: EPICENTRAL DISTANCE. 

T: ELLIPTICITY CORRECTION IN SECS. 


SUBROUTINES DIV AND ELIP ARE CALLED. THE REFLECTION POINTS ARE 
FOUND USING DIV. NO CORRECTION IS MADE FOR DEPH OF FOCUS. ERRORS 


HEREBY INTRODUCED ARE OF THE ORDER 0Q.1S. 


REAL LAT1,LON1,LAT2,LON2,LAT (10), F(19) , LON (10) 
IF (N.EQ.0) GO TO 1 

CALL DIV(N,2,LAT1,LON1,LAT2, LON2, LAT, LON) 
C=1.57079 

R=6371. 

EPSO=0.00337 

EPS1=0.00309 

RQUA=R-RDP 

FPSR=ROQUA* (EPSO-RDP* (EPSO-EPS1) /1000.) 
THET=C-LAT1 
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ghee (0. 33423 454205 (HET) ) «*2) 
IF(N.EQ.0) GO To 3 

EPS R=R* EPSO 

DO 2 J=1,N 

THET=C-LAT(J) | 
H2=H2+2*EPSR* (0. 3333333- (COS (THER) ) **2) 
CONTINUE 

EPSR=R*EPSO 

THET=C-LAT2 

H3=EPSR* (0. 3333333- (COS(THET) ) **2) 
H=H1+H24H3 

DDEL=DEL/ (N+1) 

CALL ELIP(F,H,DDEL,T) 

RETURN 

END 


SUBROUTINE MUL(NROT,LAT,LON,ROT, A) 
CALCULATICN OF EULERPCLE AND ANGLE OF ROTATION FOR 
UP TO 10 SETS OF EULERPOLES (LAT(I),LON(I)), AND 
ANGLES OF ROTATIONS ROT(I). NUMBER OF ROTATIONS IS 
NROT, AND FIRST ROTATION VALUES MUST BE IN LAT(1), 
LON(1) ,ROT(1). ALSO RESULTANT ROTATION MATRIX A(3,3) 
IS CALCULATED. RESULTS ARE IN LAT (10) ,LON(10) ,ROT (10) 
AND Ae ANGLES ARE IN DEGREES AND POSETIVE NORTH, EAST 
AND CLOCKWISE. 

DIMENSION A (3,3) ¢B(3¢3) ¢C (343) ,U (3,3) 

REAL LAT(10) ,LON(10) ,ROT(10) 

DOW10 T=1,3 

DOO =1, 3 

IF(I-EQ.J) U(I,J)=1. 

IF(I-NE.J) U(I,J) =0. 

CONTINUE 

X=LAT (1) 

CALL EUL(X,LON(1) ,RCT (1) /B) 

IF(NROT.EQ.1) GO TO 2 

NROT=NROT-1 

DO 7? T=1, NROT 

CALL EUL (LAT (I+1) ,LON(I+1), ROT (I+1) ,C) 

CALL MATRIX(A,C,B) — 

CALL MATRIX(B,A,U) - 

CALL INVEUL (A, LAT (10) ,LON(10) ,ROT(10)) 

GO TO 3 

CALL MATRIX (A,B,0U) 

LAT(10) =LAT (1) 

LON (10) =LON (1) 

ROT (10) =ROT (1) 

CONTINUE 

RETURN 

END 
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SUBROUTINE ROT (LAT, LCN,A) 


THE COORDIANTES LATITUDE AND LONGITUDE (LAT,LON, 
POSITIVE NORTH AND EAST, DEGREES) ARE TRANSFORMED 
TO A NEW SET OF COORDIANTES (LAT,LON) USING THE 
TRANSFORMATION MATRIX A. 


REAL LAT, LON 
DIMENSION A(3,3),X(3),XX (3) 
C=57.2958 

LAT=(90.-LAT) /C 

LON=LON/C 


THE Z AXIS GOES NORTH FROM THE CENTER OF THE EARTH, 
AND THE X AXIS GOES FRCM THE CENTER TO (0,0). XX 
ARE THE DIRECTION COSINES. 


XX (1) =SIN (LAT) *COS (LON) 
XX (2) =SIN (LAT) *SIN(LON) 
XX (3) =COS (LAT) 

poed T=1,3 

X (I) =0 

POe2Fd= 193 

HDOeDMr=123 

XqJ) =X (J) +A (J, 1) *XX (T) 
LON=ATAN2 (X(2) ¢X(1)) ¥C 
SQ=SORT (X (1) ** 24X (2) **2) 
LAT=ATAN2 (SQ, X (3) ) *C 
LAT=90.-LAT 

-RETURN 

END 


SUBROUTINE SCIR(LAT,LON, ROT, LAT1,LCN1, ROT1,SDEL) 


CALCULATION OF RESULTANT ROTATION OF 2 EULER 
ROTATIONS, ONE BEING LAT,LON, ROT AND THE OTHER 
A ROTATION SDEL AROUND THE NORTH POLE. ALL 
ANGLES ARE IN DEGREES AND ANGLE OF ROTATIONS 
ARE POSETIVE ANTICLCCKWISE. COORDINATES 


POSETIVE NORTH AND EAST 


EAL LAT, LON, LAT1,LON1 
Peansrin X (10) ,-¥(10),2(19) ,A (3,3) 
X (1) =LAT 
Y (1) =LON 
X (2) =90. 

Y (2) =0.9 

Z (1) =ROT 

Z (2) =SDEL 

N=2 

CALL MUL(N,XeY¥eZeA) 
LAT 1=X(10) 


al A tee 
ae. 
i" . SN : We: 
Pore, Rea oe ye, 7 
| isan a ey. many 
Pe Pa 


: i a Wirz ¥ e j { sz 0 i ‘eur: nm ai ree 7 
. | Bh 0 mt el hit at 
UTTOUE OHA BL bak Da “xed Aan OOD RE 
" . Li —_ - ia i Ad ay a) a ” 
4 oe a at Ve ia Cay H oni ? 4 ER 
] 


, * tao yy ; re 
' > rt 7 


+ tine a Chane ay >” @ in Ze 


=" 7 je BALMS Ae wg aw, ” 


ae a M4 ee Vitek a 
* He @ PE Rel ™ 7" rv, 7 
a 
_ ~ a 4 _ 
i : a¢ > 
- Oe GR eae aa 
a a i - os Pt, iy 
7 j ‘, i i hia % ‘Go tae an 
uy fi +a Fee « 
’ : e wy te at 
TERE WOR) 
ame yo | ‘ Cy 
' 
1 ite 
oooh ‘ é 
; a | i 
é »* _ 
i Je) i ee + | 
q = 
¢ si fon Mee ry eu 
; a 
2 RS Claas aa cs 
cy eo? - L | ~ 
} > ~ - f 
“ yo. 
es 4 i . | 
as : Tea 
see rae 
» ee 
4 oe > 
~ a1 i 
7 A ! 
| Ey had Se 
A A 
» 7 4 EG ahh 4 P, ft 3 AAS a 
ral “ ¢ 
“hohe f ‘7 } ha Cy) Xe . a" £R ror 
Wek Ti g v a vi T2702 *% : 
“tS Fea xotienuny) & eRO! 
7, ee ” Sue es ‘* a? ya 
eS id (ess ies « oS | . aad ~: ; 
H s. rane 
Me ; Weped Ot ie mae) 
p ——+ 
' 
: 
' i 7 
> oT * q 1 4 
: ~ . 


reOd ota] tll {HOA,2 shila, Mapiiaiae sb 
; 7S. yee De ee Ds 
o abeearom eeanaes “it RO) 4OTPRIUIAD 
it Une Coy sho ray Ouse. ‘240 ,2NGETA 208 
fh «BLOG ROAGA BAT AHCOES NGe NOTTARGR 
Cen) rAd tet a e108 by ee. ‘RpSnoR qu: Mt, Lon ate faa. ij 3 
PEREGO?  WLLRPIOTOLIRE2 verahod RR re 
ty aa “Peas gq WTR 8 avRERAe 3) 
While Avie { 7 Saale a) 
t Pubip Taba 2 ot AABR: 
ie, by xi, ie PUESIOF GANERE, Ket sh" 


a 3 Ms YP Scone mdbae gh 
a va : 7 Sy tse ae 
la ee . 208, tee gle 
2 s ue Nel ‘ 
} 7 
aie 
: : mt A Po 
7 Amik 


c 
c 
C 


OPO Os GG) aC) OG) OnG).C) 


LON 1=¥ (10) 
ROT 1=Z (10) 
RETURN 
END 


SUBROUTINE SHUF(NF,NEV,NSTA) 


ROUTINE REARRANGES LINES IN A FILE NF. 


100 


DIMENSION T(1000,12),NSTA (50) 

N2=0 

DO 1 I=1,NEV 

N2=N2+NSTA(I) *3 

REWIND NF 

READ (NF, 100) ((2(J,1) -I=1,12) ,J=1, N2) 
REWIND NF 

DO 2 M=1,3 

K F=0 

NS=0 

DO 2 K=1,NEV 

K F=KF+NS*3 

NS=NSTA(K) 

DO 2 L=1,NS 

WRITE(NF, 100) (T(L¢KF+(M-1) ¥NS,I) ,I=1, 12) 
FORMAT (12A4) 

RETURN 

END 


SUBROUTINE SOFT (NSYM,NREC,D, DI, M,K) 


SORTING OF NREC SETS CF NUMBERS AFTER SIZE IN 
NSYM GROUPS. D(I) CONTAINS THE BOUNDARIES BETWEEN 
THE GROUPS, DI(I) THE NUMBERS TO BE SORTED, K({I) 
GIVES THE NUMBER OF NUMBERS FALLING IN EACH GROUP, 
AND M(I,J) GIVES THE VHCORRESPONDING ARRAY ELEMENTS 
E.G. M(3,d=1,K(3))LISIS THE INDICES OF D(I) FALLING 


TNTGROUPT SS. 
THE NUMBERS IN D(I) MUST BE INCREASING IN SIZE WITH 


+ 


— @ 


DIMENSION D(10),D1(500),K(10) ,M (10,500) 
NSYM=NSYM-1 

DOj 4 a 1710 

K (I) =0 

DO 4 J=1,NREC 

DO 2 IT=1,NSYM 

TE (CD (1)). GT. DI (J)\)) GO TOS 

GO TO 5 

K (1) =K (1) +1 
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K1=K (1) 
Mq(I,K1) =J 

GO TO 4 
IF(I-NSYM) 2,6,2 
K (I+1) =K (I+1) +1 
K 1=K (I+1) 
M(I+1,K1)=J 
CONTINUE 
CONTINUE 
NSYM=NSYM+1 
RETURN 

END 


SUBROUTINE SPT (KO,K1,N,M) 


A LINE FILE CONCISTING OF N GROUPS OF DATA WITH M LINES 
EACH IS REORGANISED SO THE FIRST LINE FROM GROUP 1 IS 
FOLLOWED BY THE FIRST LINE FROM GROUP 2 ETC. 

KO IS THE FILE NUMBER FOR INPUT AND OUTPOT. 

52 CHARACTERS ARE READ FROM EACH LINE. 

FROM FILE K1 52 CHARACTERS ARE ALSO RESD AND 

LISTED IN FILE KO, AND IN THE SAME ORDER AS IN K1 
STARTING IN LINE 1, FORMAT (60X,12A4). SO THE FORMAT 

OF THE TOTAL LINE OUTPUT IS (13A4,8X,13A4). 


DIMENSION K (4000, 13),17(20) 
NM=N*M 

REWIND KO 

REWIND K1 

DO 1 I=1,NM 

READ (KO, 100) (K (I,J) ,J=1,13) 

REWIND KO 

DO 3 J=1,™ 

DO 2 I=1,N 

IF(N.LE.20) READ(K1,100) (T(KK) ,KK=1,13) 

LIF(N.GT. 20) WRITE (KO,103) (K(S+M* (I-1) ,L) ,L=1,13) 
IF(N.LE.20) WRITE (KO, 102) (T(L) ,L=1, 13) , (K (J#M* (I-1) , KK) , KK=1,1 
WRITE (KO, 101) 

CONTINUE 


FORMAT (20A4) 


FORMAT (///) 
FORMAT (13A4, 8X,13A4) 


FORMAT (60X, 13A4) 
RETURN 
END 
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SUBROUTINE TIMEP(NN,JM,LS,SDDEL,RDPS,SSDEL,TPS,DTS) 
SUBROUTINE CALCULATES TIME AND ITS FIRST DERIVATIVE BY 
INTERPOLATION OF TRAVEL TIME DATA HELD IN MATRIX T. 


NN = NUMBER OF STATIONS. 
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UMBER OF DISTANCE ENTRIES IN TABLE. 

NITIAL DISTANCE IN TABLE IN DEGREES. 

SDDEL = DISTANCE INCREMENT IN TRAVEL TIME TABLE. 

ROPS = DEPTH OF FOCUS. 

SSDEL = ARRAY OF NN DISTANCES IN DEGREES. 

TPS, DTS = INTERPOLATED TIMES AND DERIVATIVES FOR NN STATIONS 


t 
Mn 
t 
H = 


DIMENSION SSDEL (200), TPS (200) , DTS (200) 
COMMON T(14, 201), IDEPS(14) 

N=0 

N=N+1 

IF(N.GT.NN) RETURN 


DIST=SSDEL(N) /SDDEL+1. 0-FLOAT (LS) 


J=DIST 
MSDEP=RDPS 

CHECK IF PHASE EXISTS AT DISTANCE CALCULATED. 
PP @M=-3) 15,75,3 

IF(SSDEL (N-FLOAT (LS)) 15,4,4 

IF (IDEPS (14-MSDEP) 15,5,5 

DO 7 M=2, 14 

FIND DEPTH INDEX, I. 

I=M-1 

IF (IDEPS (M-MSDEP) 7,6,6 

GO TO 8 

CONTINUE 

CONTINUE 

IF(T(I,J) -EQ.0.) GO TO 15 
IF(T(I+1,J) .EQ.0.) GO TO 15 
IF(T(I,J+1).EQ.0.) GO TO 15 
IF(T(I+1,J+1).FQ.0.) GO TO 15 
TDB=T (I+1,J-T (I,J) 
TDC=T(1+1,J3+1-T(I,J+t1) 

D=FLOAT (MSDEP-IDEPS (I) ) / (FLOAT (IDEPS (I1¢1-IDEPS (1) )) 
TB=T (I,J) tT DB*D 

TC=T(1,J+1) +TDC*D 
DJ=SSDEL (N-FLOAT (J-1+LS) *SDDEL 
DS=DJ/SDDEL 

TPS (N) =TB+ (TC-TB) *DS 

CALCULATE DERIVATIVE OF TIME WITH RESPECT TO DISTANCE, 
IF (J-1) 16,16,9 

IF (JM-J-1) 16,16,10 
IF(T(1I,J-1)) 16, 16,11 
IF(T(I+1,J-1)) 16, 16,12 
IF(T(1,J+2)) 16, 16,13 
IF(T(I+1,J+2)) 16,16,14 
TDA=T(I+1,J-1-T(I,J3-1) 

TDD=T (I#1,J+2-T (I,J+*2) 
TA=T(1,J-1) ¢TDA*D 

TD=T(1,J+2) +TDD*D 

TPR=TA+ (TE-TA) *DS 

meT= Crt D=TC) *DS 

DTS (N) i 0.5 * (TPT-TPR) / SDDEL 
GO TO 47 

TPS(N) = 0.0 
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16 OTS «N) = 0.0 
Mi GO TOC 1 
END 
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